From d61ac4a65300ec39761893e2dd559a121d0998c3 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 4 Mar 2002 09:24:40 +0000 Subject: [PATCH] (describe-key-briefly, describe-key): Interpret `undefined' like not defined at all. --- lisp/ChangeLog | 5 +++++ lisp/help.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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) -- 2.39.5