diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-03-04 09:24:40 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-03-04 09:24:40 +0000 |
| commit | d61ac4a65300ec39761893e2dd559a121d0998c3 (patch) | |
| tree | ae22711e1f24de8ab5e29fee07e9eafe846f6b0c /lisp/help.el | |
| parent | 8bd90f0a9d371f24acf51ecd635654b24ed21ab2 (diff) | |
| download | emacs-d61ac4a65300ec39761893e2dd559a121d0998c3.tar.gz | |
(describe-key-briefly, describe-key): Interpret `undefined' like not
defined at all.
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 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) |