Mercurial > emacs

changeset 43697:8dc5abd4533a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-key-briefly, describe-key): Interpret `undefined' like not defined at all.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 04 Mar 2002 09:24:07 +0000
parents 4f4870cb475a
children 9284613a11ed
files lisp/help.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Mon Mar 04 09:22:28 2002 +0000
+++ b/lisp/help.el	Mon Mar 04 09:24:07 2002 +0000
@@ -473,7 +473,7 @@
       (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 @@
 	    (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)