mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix key binding quoting in tutorial *Help*

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2015-08-19 09:40:33 -07:00
parent ae7cfd0baf
commit ec07cfbee1
1 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/tutorial.el
View file

@ -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)