(setq mapsym s)))))
(insert
(format
- "The default Emacs binding for the key %s is the command ‘%s’. "
+ "The default Emacs binding for the key %s is the command `%s'. "
(key-description key)
db))
(insert "However, your customizations have "
(if cb
- (format-message "rebound it to the command ‘%s’" cb)
+ (format-message "rebound it to the command `%s'" cb)
"unbound it"))
(insert ".")
(when mapsym
(insert " (For the more advanced user:"
(format-message
- " This binding is in the keymap ‘%s’.)" mapsym)))
+ " This binding is in the keymap `%s'.)" mapsym)))
(if (string= where "")
(unless (keymapp db)
(insert "\n\nYou can use M-x "
""
"the key")
where
- (format-message " to get the function ‘%s’." db))))
+ (format-message " to get the function `%s'." db))))
(fill-region (point-min) (point)))))
(help-print-return-message))))
(lookup-key global-map
[menu-bar]))))
(stringp cwhere))
- (format-message "the ‘%s’ menu" cwhere)
+ (format-message "the `%s' menu" cwhere)
"the menus"))))
(setq where ""))
(setq remark nil)