[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109742: * help-fns.el (help-fns--key
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109742: * help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets. |
Date: |
Wed, 22 Aug 2012 00:02:15 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 109742
fixes bug: http://debbugs.gnu.org/12174
author: Christopher Schmidt <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-22 00:02:15 -0700
message:
* help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.
modified:
lisp/ChangeLog
lisp/help-fns.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-08-22 06:59:38 +0000
+++ b/lisp/ChangeLog 2012-08-22 07:02:15 +0000
@@ -1,3 +1,8 @@
+2012-08-22 Christopher Schmidt <address@hidden>
+
+ * help-fns.el (help-fns--key-bindings):
+ Abbreviate non-symbol remap targets. (Bug#12174)
+
2012-08-22 Martin Rudalics <address@hidden>
* dired.el (dired-mark-remembered): Don't clobber point.
=== modified file 'lisp/help-fns.el'
--- a/lisp/help-fns.el 2012-08-06 21:05:48 +0000
+++ b/lisp/help-fns.el 2012-08-22 07:02:15 +0000
@@ -397,9 +397,11 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109742: * help-fns.el (help-fns--key-bindings): Abbreviate non-symbol remap targets.,
Glenn Morris <=