From ec07cfbee12528b9800a8c8fa019af72e3c9cfe4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 19 Aug 2015 09:40:33 -0700 Subject: [PATCH] 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. --- lisp/tutorial.el | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) 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) -- 2.39.2