diff options
| author | Christopher Schmidt <christopher@ch.ristopher.com> | 2012-08-22 00:02:15 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-08-22 00:02:15 -0700 |
| commit | 80a51fa01ff36879aa57f82f90b796a2092e8191 (patch) | |
| tree | 2a4f7b4b6ffffbf5ee06511d322b1234d49ad82e /lisp/help-fns.el | |
| parent | fbb6300b6d0058c464631da982af1a77ff798524 (diff) | |
| download | emacs-80a51fa01ff36879aa57f82f90b796a2092e8191.tar.gz | |
* help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.
Fixes: debbugs:12174
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 4b1480444c2..5791f1225c1 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -397,9 +397,11 @@ suitable file is found, return nil." (if (member (event-modifiers (aref key 0)) '(nil (shift))) (push key non-modified-keys))) (when remapped - (princ "Its keys are remapped to `") - (princ (symbol-name remapped)) - (princ "'.\n")) + (princ "Its keys are remapped to ") + (princ (if (symbolp remapped) + (concat "`" (symbol-name remapped) "'") + "an anonymous command")) + (princ ".\n")) (when keys (princ (if remapped |