diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-19 09:40:33 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-19 09:41:31 -0700 |
| commit | ec07cfbee12528b9800a8c8fa019af72e3c9cfe4 (patch) | |
| tree | 878d99e22b289a5eb391074df98e607f613d4a5b /lisp/tutorial.el | |
| parent | ae7cfd0baf24fda984ff4c0631bcaa477ea11b7f (diff) | |
| download | emacs-ec07cfbee12528b9800a8c8fa019af72e3c9cfe4.tar.gz | |
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.
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 24 |
1 files 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) |