[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ec07cfb: Fix key binding quoting in tutorial *Help*
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master ec07cfb: Fix key binding quoting in tutorial *Help* |
Date: |
Wed, 19 Aug 2015 16:41:42 +0000 |
branch: master
commit ec07cfbee12528b9800a8c8fa019af72e3c9cfe4
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
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 files changed, 10 insertions(+), 14 deletions(-)
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index 3b00761..9fea316 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ec07cfb: Fix key binding quoting in tutorial *Help*,
Paul Eggert <=