(woman-dired-define-key-maybe): If KEY is undefined,

lookup-key might return nil; handle that.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 567b5c5c9d5a9238f48ed7fb2fa514690e0a0c3d..9339bc1f87b48a461f8c2c19406b2baf122932b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-15  Stephen Eglen  <S.J.Eglen@damtp.cam.ac.uk>  (tiny change)
+
+       * woman.el (woman-dired-define-key-maybe): If KEY is undefined,
+       lookup-key might return nil; handle that.
+
 2005-01-15  Alan Mackenzie  <acm@muc.de>
 
        * ebrowse.el (ebrowse-class-in-tree): Return the tail of the tree

diff --git a/lisp/woman.el b/lisp/woman.el
index 610590a297211516d3d9fad5638f85d6338b9fcc..e4b29374a05dff1a671a31b0e0826ccc6efb57a1 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1491,7 +1491,8 @@ Also make each path-info component into a list.
 
 (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 ()