mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* help.el (describe-key-briefly, describe-key): Recognize default

Browse source 
bindings.
This commit is contained in:
Chong Yidong 2005-11-29 15:42:42 +00:00
parent 1c0484e2a2
commit 2c30b4506a
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/help.el
View file

@ -590,7 +590,7 @@ the last key hit are used."
(goto-char position)))
;; Ok, now look up the key and name the command.
(let ((defn (or (string-key-binding key)
(key-binding key)))
(key-binding key t)))
key-desc)
;; Don't bother user with strings from (e.g.) the select-paste menu.
(if (stringp (aref key (1- (length key))))
@ -635,7 +635,7 @@ the last key sequence entered are used."
(when (windowp window)
(set-buffer (window-buffer window))
(goto-char position))
(let ((defn (or (string-key-binding key) (key-binding key))))
(let ((defn (or (string-key-binding key) (key-binding key t))))
(if (or (null defn) (integerp defn) (equal defn 'undefined))
(message "%s is undefined" (help-key-description key untranslated))
(help-setup-xref (list #'describe-function defn) (interactive-p))