From 80a51fa01ff36879aa57f82f90b796a2092e8191 Mon Sep 17 00:00:00 2001 From: Christopher Schmidt Date: Wed, 22 Aug 2012 00:02:15 -0700 Subject: [PATCH] * help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets. Fixes: debbugs:12174 --- lisp/ChangeLog | 5 +++++ lisp/help-fns.el | 8 +++++--- 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 + + * help-fns.el (help-fns--key-bindings): + Abbreviate non-symbol remap targets. (Bug#12174) + 2012-08-22 Martin Rudalics * 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 -- 2.39.2