Prefer directed to neutral quotes

[gnu-emacs] / lisp / mpc.el

diff --git a/lisp/mpc.el b/lisp/mpc.el
index fb59adf30ff6d8225da9d07aee5036aa0f8849ec..59581f3d68767bacab2e81cd83c4521a6a62c47b 100644 (file)
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1751,7 +1751,7 @@ A value of t means the main playlist.")
                      (completing-read "Rename playlist: "
                                       (mpc-cmd-list 'Playlist)
                                       nil 'require-match)))
-          (newname (read-string (format "Rename '%s' to: " oldname))))
+          (newname (read-string (format-message "Rename ‘%s’ to: " oldname))))
      (if (zerop (length newname))
          (error "Aborted")
        (list oldname newname))))