[Emacs-diffs] /srv/bzr/emacs/trunk r109742: * help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.

[Glenn Morris]

------------------------------------------------------------
revno: 109742
fixes bug: http://debbugs.gnu.org/12174
author: Christopher Schmidt <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-22 00:02:15 -0700
message:
  * help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.
modified:
  lisp/ChangeLog
  lisp/help-fns.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-22 06:59:38 +0000
+++ b/lisp/ChangeLog    2012-08-22 07:02:15 +0000
@@ -1,3 +1,8 @@
+2012-08-22  Christopher Schmidt  <address@hidden>
+
+       * help-fns.el (help-fns--key-bindings):
+       Abbreviate non-symbol remap targets.  (Bug#12174)
+
 2012-08-22  Martin Rudalics  <address@hidden>
 
        * dired.el (dired-mark-remembered): Don't clobber point.

=== modified file 'lisp/help-fns.el'
--- a/lisp/help-fns.el  2012-08-06 21:05:48 +0000
+++ b/lisp/help-fns.el  2012-08-22 07:02:15 +0000
@@ -397,9 +397,11 @@
               (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