From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 19 Aug 2015 16:40:33 +0000 (-0700)
Subject: Fix key binding quoting in tutorial *Help*
X-Git-Tag: emacs-25.0.90~1342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec07cfbee12528b9800a8c8fa019af72e3c9cfe4;p=emacs.git

Fix key binding quoting in tutorial *Help*

* lisp/tutorial.el (tutorial--describe-nonstandard-key):
When generating help for custom key bindings, use the user-preferred
quoting style rather than hardcoding the grave style.
---

diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 3b007610c9e..9fea3162810 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -134,21 +134,19 @@ options:
                            (eq map (symbol-value s))
                            ;; then save this value in mapsym
                            (setq mapsym s)))))
-            (insert "The default Emacs binding for the key "
-                    (key-description key)
-                    " is the command `")
-            (insert (format "%s" db))
-            (insert "'.  "
-                    "However, your customizations have "
+            (insert
+             (format
+              "The default Emacs binding for the key %s is the command ‘%s’.  "
+              (key-description key)
+              db))
+            (insert "However, your customizations have "
                     (if cb
-                        (format "rebound it to the command `%s'" cb)
+                        (format "rebound it to the command ‘%s’" cb)
                       "unbound it"))
             (insert ".")
             (when mapsym
               (insert "  (For the more advanced user:"
-                      " This binding is in the keymap `"
-                      (format "%s" mapsym)
-                      "'.)"))
+                      (format " This binding is in the keymap ‘%s’.)" mapsym)))
             (if (string= where "")
                 (unless (keymapp db)
                   (insert "\n\nYou can use M-x "
@@ -160,9 +158,7 @@ options:
                           ""
                         "the key")
                       where
-                      " to get the function `"
-                      (format "%s" db)
-                      "'.")))
+                      (format " to get the function ‘%s’." db))))
           (fill-region (point-min) (point)))))
       (help-print-return-message))))
 
@@ -454,7 +450,7 @@ where
 					       (lookup-key global-map
 							   [menu-bar]))))
 				 (stringp cwhere))
-			    (format "the `%s' menu" cwhere)
+			    (format "the ‘%s’ menu" cwhere)
 			  "the menus"))))
 	    (setq where ""))
 	  (setq remark nil)