Go back to grave quoting in source-code docstrings etc.

[gnu-emacs] / lisp / format.el

diff --git a/lisp/format.el b/lisp/format.el
index 7ab68c8a04e8ec60cd976fc4ae71476fa55aed2d..dbc814e5b017b1c3dca4cf808cc119195327213f 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -395,7 +395,7 @@ unless you supply a prefix argument."
                                  (cdr (assq 'default-directory
                                             (buffer-local-variables)))
                                  nil nil (buffer-name))))
-         (fmt (format-read (format-message "Write file ‘%s’ in format: "
+         (fmt (format-read (format-message "Write file `%s' in format: "
                                             (file-name-nondirectory file)))))
      (list file fmt (not current-prefix-arg))))
   (let ((old-formats buffer-file-format)
@@ -416,7 +416,7 @@ If FORMAT is nil then do not do any format conversion."
   (interactive
    ;; Same interactive spec as write-file, plus format question.
    (let* ((file (read-file-name "Find file: "))
-         (fmt (format-read (format-message "Read file ‘%s’ in format: "
+         (fmt (format-read (format-message "Read file `%s' in format: "
                                             (file-name-nondirectory file)))))
      (list file fmt)))
   (let ((format-alist nil))
@@ -435,7 +435,7 @@ a list (ABSOLUTE-FILE-NAME SIZE)."
   (interactive
    ;; Same interactive spec as write-file, plus format question.
    (let* ((file (read-file-name "Find file: "))
-         (fmt (format-read (format-message "Read file ‘%s’ in format: "
+         (fmt (format-read (format-message "Read file `%s' in format: "
                                             (file-name-nondirectory file)))))
      (list file fmt)))
   (let (value size old-undo)