Mercurial > hg > xemacs-beta

diff lisp/finder.el @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 74fd4e045ea6
children de805c49cfc1
line wrap: on
line diff
--- a/lisp/finder.el	Mon Aug 13 11:16:09 2007 +0200
+++ b/lisp/finder.el	Mon Aug 13 11:17:09 2007 +0200
@@ -167,7 +167,7 @@
        (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)