* help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.

Fixes: debbugs:12174

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 688b6a9..db15ad8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-22  Christopher Schmidt  <christopher@ch.ristopher.com>
+
+       * help-fns.el (help-fns--key-bindings):
+       Abbreviate non-symbol remap targets.  (Bug#12174)
+
 2012-08-22  Martin Rudalics  <rudalics@gmx.at>
 
        * dired.el (dired-mark-remembered): Don't clobber point.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 4b14804..5791f12 100644 (file)
--- 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