From: Christopher Schmidt <christopher@ch.ristopher.com>
Date: Wed, 22 Aug 2012 07:02:15 +0000 (-0700)
Subject: * help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.
X-Git-Tag: emacs-24.2.90~547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80a51fa01ff36879aa57f82f90b796a2092e8191;p=emacs.git

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

Fixes: debbugs:12174
---

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