XEmacs 21.4.4 "Artificial Intelligence".

[chise/xemacs-chise.git-] / lisp / find-paths.el

diff --git a/lisp/find-paths.el b/lisp/find-paths.el
index cc16201..c8848b5 100644 (file)
--- a/lisp/find-paths.el
+++ b/lisp/find-paths.el
@@ -69,7 +69,8 @@ from the search."
                     (directory-files directory nil "^[^.-]")))
                  (reverse-dirs '()))
              (while raw-entries
-               (if (null (string-match exclude-regexp (car raw-entries)))
+               (if (not (and exclude-regexp
+                             (string-match exclude-regexp (car raw-entries))))
                    (setq reverse-dirs
                          (cons (expand-file-name (car raw-entries) directory)
                                reverse-dirs)))