[Emacs-diffs] emacs/lisp ChangeLog vc-cvs.el

[Lute Kamstra]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Lute Kamstra <lute>     08/12/04 18:10:37

Modified files:
        lisp           : ChangeLog vc-cvs.el 

Log message:
        (vc-cvs-could-register): Don't use file-directory-p to
        check if the file "CVS/Entries" exists.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14912&r2=1.14913
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-cvs.el?cvsroot=emacs&r1=1.161&r2=1.162

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14912
retrieving revision 1.14913
diff -u -b -r1.14912 -r1.14913
--- ChangeLog   4 Dec 2008 15:23:54 -0000       1.14912
+++ ChangeLog   4 Dec 2008 18:10:34 -0000       1.14913
@@ -1,3 +1,8 @@
+2008-12-04  Lute Kamstra  <address@hidden>
+
+       * 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  <address@hidden>
 
        * international/mule-diag.el (list-character-sets): Doc fix.

Index: vc-cvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-cvs.el,v
retrieving revision 1.161
retrieving revision 1.162
diff -u -b -r1.161 -r1.162
--- vc-cvs.el   4 Dec 2008 07:00:43 -0000       1.161
+++ vc-cvs.el   4 Dec 2008 18:10:37 -0000       1.162
@@ -306,9 +306,10 @@
     (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)