From: Lute Kamstra <lute@gnu.org>
Date: Thu, 4 Dec 2008 18:10:34 +0000 (+0000)
Subject: (vc-cvs-could-register): Don't use file-directory-p to
X-Git-Tag: emacs-pretest-23.0.90~1276
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcb61bee01d80856f959a93c9158254256dc7e49;p=emacs.git

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