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

check if the file "CVS/Entries" exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97f20b906eb2e372a300ae08d33d7dddd87bd396..0699978fb95759763d8a2cf9792c3580d4a86111 100644 (file)
--- 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 fec6e2f7a584ab0bbf1935fe43e11f0fb07a01ab..813ef0c146d10e6788aba559ee3c25a69b24abc0 100644 (file)
--- 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)