1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

* help-fns.el (describe-function-1): Clarify description of remapping.

Fixes: debbugs:10844
This commit is contained in:
Chong Yidong 2012-02-26 17:24:13 +08:00
parent ad7c802c9c
commit 07498861ae
2 changed files with 8 additions and 3 deletions

View file

@ -482,12 +482,14 @@ suitable file is found, return nil."
(if (member (event-modifiers (aref key 0)) '(nil (shift)))
(push key non-modified-keys)))
(when remapped
(princ "It is remapped to `")
(princ "Its keys are remapped to `")
(princ (symbol-name remapped))
(princ "'"))
(princ "'.\n"))
(when keys
(princ (if remapped ", which is bound to " "It is bound to "))
(princ (if remapped
"Without this remapping, it would be bound to "
"It is bound to "))
;; If lots of ordinary text characters run this command,
;; don't mention them one by one.
(if (< (length non-modified-keys) 10)