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

Fixes: debbugs:12174

2 files changed, 10 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 688b6a9e341..db15ad80927 100644
--- 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 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