Mercurial > emacs
changeset 100214:188994c9d7fe
(vc-cvs-could-register): Don't use file-directory-p to
check if the file "CVS/Entries" exists.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 04 Dec 2008 18:10:34 +0000 |
| parents | a1639340ea7b |
| children | 41af808a3cfa |
| files | lisp/ChangeLog lisp/vc-cvs.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 04 15:25:53 2008 +0000 +++ b/lisp/ChangeLog Thu Dec 04 18:10:34 2008 +0000 @@ -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.
--- a/lisp/vc-cvs.el Thu Dec 04 15:25:53 2008 +0000 +++ b/lisp/vc-cvs.el Thu Dec 04 18:10:34 2008 +0000 @@ -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)