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

Fixes: debbugs:12174

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 688b6a9e341c56a69352230f839ea3f0177639e8..db15ad80927d385979cf8674c60a956b4006d0bd 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 4b1480444c2e3fd41ab1061b06e7d178deb64760..5791f1225c1d69a386e6e7488f6025db3804bd00 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