mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(vc-mcvs-registered, vc-mcvs-root): Check if file-name-directory returns nil.

Browse source
This commit is contained in:
Stefan Monnier 2003-05-13 13:52:45 +00:00
parent c453792f84
commit d96c309f04
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/vc-mcvs.el
View file

@ -116,14 +116,16 @@ This is only meaningful if you don't use the implicit checkout model
;;;###autoload (defun vc-mcvs-registered (file)
;;;###autoload (let ((dir file))
;;;###autoload (while (and (stringp dir)
;;;###autoload (not (equal dir (setq dir (file-name-directory dir)))))
;;;###autoload (not (equal
;;;###autoload dir (setq dir (file-name-directory dir))))
;;;###autoload dir)
;;;###autoload (setq dir (if (file-directory-p
;;;###autoload (expand-file-name "MCVS/CVS" dir))
;;;###autoload t (directory-file-name dir))))
;;;###autoload (expand-file-name "MCVS/CVS" dir))
;;;###autoload t (directory-file-name dir))))
;;;###autoload (if (eq dir t)
;;;###autoload (progn
;;;###autoload (load "vc-mcvs")
;;;###autoload (vc-mcvs-registered file)))))
;;;###autoload (progn
;;;###autoload (load "vc-mcvs")
;;;###autoload (vc-mcvs-registered file)))))
(defun vc-mcvs-root (file)
"Return the root directory of a Meta-CVS project, if any."
@ -132,7 +134,8 @@ This is only meaningful if you don't use the implicit checkout model
file 'mcvs-root
(let ((root nil))
(while (not (or root
(equal file (setq file (file-name-directory file)))))
(equal file (setq file (file-name-directory file)))
(null file)))
(if (file-directory-p (expand-file-name "MCVS/CVS" file))
(setq root file)
(setq file (directory-file-name file))))