(describe-key-briefly, describe-key): Interpret `undefined' like not

defined at all.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f228887a0db0c402c25774f3598885cd0ab9782d..8326302528da7688c9cd9a0bbce4f679775a2a87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-04  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * help.el (describe-key-briefly, describe-key): Interpret
+       `undefined' like not defined at all.
+
 2002-03-03  Stefan Monnier  <monnier@cs.yale.edu>
 
        * textmodes/sgml-mode.el: Change maintainer to FSF.

diff --git a/lisp/help.el b/lisp/help.el
index fe7782d276a9493abe52b82032337928fdade27f..8ae09c07eb11fd3b686fa3922e776b6053acdde3 100644 (file)
--- 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)