(vc-cvs-could-register): Don't use file-directory-p to

check if the file "CVS/Entries" exists.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97f20b906eb..0699978fb95 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-04  Lute Kamstra  <lute@gnu.org>
+
+        * vc-cvs.el (vc-cvs-could-register): Don't use file-directory-p to
+        check if the file "CVS/Entries" exists.
+
 2008-12-04  Juanma Barranquero  <lekktu@gmail.com>
 
         * international/mule-diag.el (list-character-sets): Doc fix.
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index fec6e2f7a58..813ef0c146d 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -306,9 +306,10 @@ its parents."
     (while (and (stringp dir)
                 (not (equal dir (setq dir (file-name-directory dir))))
                 dir)
-      (setq dir (if (file-directory-p
+      (setq dir (if (file-exists-p
                      (expand-file-name "CVS/Entries" dir))
-                    t (directory-file-name dir))))
+                    t
+                  (directory-file-name dir))))
     (eq dir t)))
 
 (defun vc-cvs-checkin (files rev comment)