projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
XEmacs 21.2.33 "Melpomene".
[chise/xemacs-chise.git.1] / lisp / finder.el
diff --git a/lisp/finder.el b/lisp/finder.el
index b0fa4de..503b7f8 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -167,7 +167,7 @@ arguments compiles from `load-path'."
        (lambda (d)
         (mapcar
          (lambda (f) 
        (lambda (d)
         (mapcar
          (lambda (f) 
-           (when (not (member f processed))
+           (when (and (not (member f processed)) (file-readable-p f))
              (let (summary keystart keywords)
                (setq processed (cons f processed))
                (if (not finder-compile-keywords-quiet)
              (let (summary keystart keywords)
                (setq processed (cons f processed))
                (if (not finder-compile-keywords-quiet)