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

[gnu-emacs] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index b8d4e741775d18692438b37c8379effeb19f9d57..f80faae80d873ca6e7a4a31dad9306b2411650f3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1655,7 +1655,7 @@ invoking, give a prefix argument to `execute-extended-command'."
                       (not executing-kbd-macro)
                       (where-is-internal function overriding-local-map t))))
     (unless (commandp function)
-      (error "‘%s’ is not a valid command name" command-name))
+      (error "`%s' is not a valid command name" command-name))
     (setq this-command function)
     ;; Normally `real-this-command' should never be changed, but here we really
     ;; want to pretend that M-x <cmd> RET is nothing more than a "key
@@ -1689,7 +1689,7 @@ invoking, give a prefix argument to `execute-extended-command'."
                            (symbol-name function) typed))))
         (when binding
           (with-temp-message
-              (format-message "You can run the command ‘%s’ with %s"
+              (format-message "You can run the command `%s' with %s"
                               function
                               (if (stringp binding)
                                   (concat "M-x " binding " RET")
@@ -2801,7 +2801,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.")
        (setq undo-extra-outer-limit (+ size 50000))
        (if (let (use-dialog-box track-mouse executing-kbd-macro )
              (yes-or-no-p (format-message
-                            "Buffer ‘%s’ undo info is %d bytes long; discard it? "
+                            "Buffer `%s' undo info is %d bytes long; discard it? "
                             (buffer-name) size)))
            (progn (setq buffer-undo-list nil)
                   (setq undo-extra-outer-limit nil)
@@ -2810,7 +2810,7 @@ This variable only matters if `undo-ask-before-discard' is non-nil.")
     (display-warning '(undo discard-info)
                     (concat
                      (format-message
-                       "Buffer ‘%s’ undo info was %d bytes long.\n"
+                       "Buffer `%s' undo info was %d bytes long.\n"
                        (buffer-name) size)
                      "The undo info was discarded because it exceeded \
 `undo-outer-limit'.
@@ -3570,7 +3570,7 @@ Also, delete any process that is exited or signaled."
                                 `(,(buffer-name buf)
                                   face link
                                   help-echo ,(format-message
-                                              "Visit buffer ‘%s’"
+                                              "Visit buffer `%s'"
                                               (buffer-name buf))
                                   follow-link t
                                   process-buffer ,buf
@@ -7348,11 +7348,11 @@ buffer buried."
                (push var warn-vars)))
         (when warn-vars
           (display-warning 'mail
-                           (format "\
+                           (format-message "\
 The default mail mode is now Message mode.
 You have the following Mail mode variable%s customized:
-\n  %s\n\nTo use Mail mode, set ‘mail-user-agent’ to sendmail-user-agent.
-To disable this warning, set ‘compose-mail-user-agent-warnings’ to nil."
+\n  %s\n\nTo use Mail mode, set `mail-user-agent' to sendmail-user-agent.
+To disable this warning, set `compose-mail-user-agent-warnings' to nil."
                                    (if (> (length warn-vars) 1) "s" "")
                                    (mapconcat 'symbol-name
                                               warn-vars " "))))))
@@ -7423,8 +7423,8 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
                                (t "globally"))))
          (val (progn
                  (when obsolete
-                   (message (concat "‘%S’ is obsolete; "
-                                    (if (symbolp obsolete) "use ‘%S’ instead" "%s"))
+                   (message (concat "`%S' is obsolete; "
+                                    (if (symbolp obsolete) "use `%S' instead" "%s"))
                             var obsolete)
                    (sit-for 3))
                  (if prop
@@ -7448,7 +7448,7 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
       (require 'cus-edit)
       (setq type (widget-convert type))
       (unless (widget-apply type :match value)
-       (user-error "Value ‘%S’ does not match type %S of %S"
+       (user-error "Value `%S' does not match type %S of %S"
                    value (car type) variable))))
 
   (if make-local
@@ -7659,7 +7659,7 @@ back on `completion-list-insert-choice-function' when nil."
   ;; `base-position'.  It's difficult to make any use of `base-size',
   ;; so we just ignore it.
   (unless (consp base-position)
-    (message "Obsolete ‘base-size’ passed to choose-completion-string")
+    (message "Obsolete `base-size' passed to choose-completion-string")
     (setq base-position nil))
 
   (let* ((buffer (or buffer completion-reference-buffer))
@@ -8384,7 +8384,7 @@ CUSTOMIZATIONS, if non-nil, should be composed of alternating
     `(progn
 
        (defcustom ,varalt-sym nil
-         ,(format "Alist of alternative implementations for the ‘%s’ command.
+         ,(format "Alist of alternative implementations for the `%s' command.
 
 Each entry must be a pair (ALTNAME . ALTFUN), where:
 ALTNAME - The name shown at user to describe the alternative implementation.
@@ -8397,22 +8397,22 @@ ALTFUN  - The function called to implement this alternative."
        (defvar ,varimp-sym nil "Internal use only.")
 
        (defun ,command (&optional arg)
-         ,(format "Run generic command ‘%s’.
+         ,(format "Run generic command `%s'.
 If used for the first time, or with interactive ARG, ask the user which
-implementation to use for ‘%s’.  The variable ‘%s’
+implementation to use for `%s'.  The variable `%s'
 contains the list of implementations currently supported for this command."
                   command-name command-name varalt-name)
          (interactive "P")
          (when (or arg (null ,varimp-sym))
            (let ((val (completing-read
                       ,(format-message
-                         "Select implementation for command ‘%s’: "
+                         "Select implementation for command `%s': "
                          command-name)
                       ,varalt-sym nil t)))
              (unless (string-equal val "")
               (when (null ,varimp-sym)
                 (message
-                 "Use ‘C-u M-x %s RET’ to select another implementation"
+                 "Use C-u M-x %s RET`to select another implementation"
                  ,command-name)
                 (sit-for 3))
               (customize-save-variable ',varimp-sym
@@ -8420,7 +8420,7 @@ contains the list of implementations currently supported for this command."
          (if ,varimp-sym
              (call-interactively ,varimp-sym)
            (message "%s" ,(format-message
-                           "No implementation selected for command ‘%s’"
+                           "No implementation selected for command `%s'"
                            command-name)))))))
 
 \f