(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))
(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)