update.

[chise/xemacs-chise.git] / lisp / finder.el

diff --git a/lisp/finder.el b/lisp/finder.el
index b0fa4de..6967e45 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -150,7 +150,9 @@ arguments compiles from `load-path'."
     (let ((processed nil)
          (directory-abbrev-alist
           (append
-           (mapcar (function (lambda (dir) (cons dir "")))
+           (mapcar (function (lambda (dir)
+                               (cons (concat "^" (regexp-quote dir))
+                                     "")))
                    finder-abbreviate-directory-list)
            directory-abbrev-alist))
          (using-load-path))
@@ -167,7 +169,7 @@ arguments compiles from `load-path'."
        (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)