]> code.delx.au - gnu-emacs/blobdiff - lisp/tutorial.el
Go back to grave quoting in source-code docstrings etc.
[gnu-emacs] / lisp / tutorial.el
index e9095b3b41bad25627c9fb55dcbbd57ee20fdd11..f8660f55f6588eff82f43a2539bfb0f35ea12765 100644 (file)
@@ -136,18 +136,18 @@ options:
                            (setq mapsym s)))))
             (insert
              (format
-              "The default Emacs binding for the key %s is the command ‘%s’.  "
+              "The default Emacs binding for the key %s is the command `%s'.  "
               (key-description key)
               db))
             (insert "However, your customizations have "
                     (if cb
-                        (format-message "rebound it to the command ‘%s’" cb)
+                        (format-message "rebound it to the command `%s'" cb)
                       "unbound it"))
             (insert ".")
             (when mapsym
               (insert "  (For the more advanced user:"
                       (format-message
-                       " This binding is in the keymap ‘%s’.)" mapsym)))
+                       " This binding is in the keymap `%s'.)" mapsym)))
             (if (string= where "")
                 (unless (keymapp db)
                   (insert "\n\nYou can use M-x "
@@ -159,7 +159,7 @@ options:
                           ""
                         "the key")
                       where
-                      (format-message " to get the function ‘%s’." db))))
+                      (format-message " to get the function `%s'." db))))
           (fill-region (point-min) (point)))))
       (help-print-return-message))))
 
@@ -451,7 +451,7 @@ where
                                               (lookup-key global-map
                                                           [menu-bar]))))
                                 (stringp cwhere))
-                           (format-message "the ‘%s’ menu" cwhere)
+                           (format-message "the `%s' menu" cwhere)
                          "the menus"))))
            (setq where ""))
          (setq remark nil)