From fcb61bee01d80856f959a93c9158254256dc7e49 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Thu, 4 Dec 2008 18:10:34 +0000 Subject: [PATCH] (vc-cvs-could-register): Don't use file-directory-p to check if the file "CVS/Entries" exists. --- lisp/ChangeLog | 5 +++++ lisp/vc-cvs.el | 5 +++-- 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 + + * 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 * 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) -- 2.39.2