diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2005-11-29 15:42:42 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2005-11-29 15:42:42 +0000 |
commit | 2c30b4506a647d128e83bcb7f932e05661097b47 (patch) | |
tree | 6537debc69919c8f81a3d88965524d297f1e2509 /lisp/help.el | |
parent | 1c0484e2a2cdd089d16eeadfd057f08ccbb2308d (diff) | |
download | emacs-2c30b4506a647d128e83bcb7f932e05661097b47.tar.gz |
* help.el (describe-key-briefly, describe-key): Recognize default
bindings.
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index b1e682906e3..1e0be6f3280 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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)) |