Mercurial > emacs

changeset 59552:45a313bd5998

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(woman-dired-define-key-maybe): If KEY is undefined, lookup-key might return nil; handle that.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 15 Jan 2005 12:45:28 +0000
parents c759f8859f72
children c41595bc0afd
files lisp/woman.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/woman.el	Sat Jan 15 12:39:25 2005 +0000
+++ b/lisp/woman.el	Sat Jan 15 12:45:28 2005 +0000
@@ -1491,7 +1491,8 @@
 
 (defsubst woman-dired-define-key-maybe (key)
   "If KEY is undefined in Dired, bind it to command `woman-dired-find-file'."
-  (if (eq (lookup-key dired-mode-map key) 'undefined)
+  (if (or (eq (lookup-key dired-mode-map key) 'undefined)
+	  (null (lookup-key dired-mode-map key)))
       (woman-dired-define-key key)))
 
 (defun woman-dired-define-keys ()