From 2c30b4506a647d128e83bcb7f932e05661097b47 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 29 Nov 2005 15:42:42 +0000 Subject: [PATCH] * help.el (describe-key-briefly, describe-key): Recognize default bindings. --- lisp/ChangeLog | 5 +++++ lisp/help.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3511a86f9f3..521936810a7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-11-29 Chong Yidong + + * help.el (describe-key-briefly, describe-key): Recognize default + bindings. + 2005-11-29 Romain Francoise * view.el (view-inhibit-help-message): New defcustom. 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)) -- 2.39.5