From: Pavel Janík Date: Mon, 4 Mar 2002 09:24:40 +0000 (+0000) Subject: (describe-key-briefly, describe-key): Interpret `undefined' like not X-Git-Tag: ttn-vms-21-2-B4~16346 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d61ac4a65300ec39761893e2dd559a121d0998c3;p=emacs.git (describe-key-briefly, describe-key): Interpret `undefined' like not defined at all. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f228887a0db..8326302528d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-03-04 Pavel Jan,Bm(Bk + + * help.el (describe-key-briefly, describe-key): Interpret + `undefined' like not defined at all. + 2002-03-03 Stefan Monnier * textmodes/sgml-mode.el: Change maintainer to FSF. diff --git a/lisp/help.el b/lisp/help.el index fe7782d276a..8ae09c07eb1 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -473,7 +473,7 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer." (let ((defn (or (string-key-binding key) (key-binding key))) (key-desc (key-description key))) - (if (or (null defn) (integerp defn)) + (if (or (null defn) (integerp defn) (equal defn 'undefined)) (princ (format "%s is undefined" key-desc)) (princ (format (if (windowp window) "%s at that spot runs the command %s" @@ -501,7 +501,7 @@ pass a string or a vector." (set-buffer (window-buffer window)) (goto-char position)) (let ((defn (or (string-key-binding key) (key-binding key)))) - (if (or (null defn) (integerp defn)) + (if (or (null defn) (integerp defn) (equal defn 'undefined)) (message "%s is undefined" (key-description key)) (help-setup-xref (list #'describe-function defn) (interactive-p)) (with-output-to-temp-buffer (help-buffer)