[Emacs-diffs] Changes to emacs/lisp/files.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/09/30 12:51:45

Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.1001
retrieving revision 1.1002
diff -u -b -r1.1001 -r1.1002
--- files.el    29 Sep 2008 11:30:03 -0000      1.1001
+++ files.el    30 Sep 2008 12:51:44 -0000      1.1002
@@ -734,8 +734,9 @@
                   (let ((prev-user user))
                     (setq user (nth 2 (file-attributes dir)))
                     (or (null prev-user) (equal user prev-user))))
-        (if (setq files (and (file-directory-p dir)
-                             (directory-files dir 'full regexp)))
+        (if (setq files (condition-case nil
+                           (directory-files dir 'full regexp)
+                         (error nil)))
             (throw 'found (car files))
           (if (equal dir
                      (setq dir (file-name-directory