116 |
;;;###autoload (defun vc-mcvs-registered (file) |
;;;###autoload (defun vc-mcvs-registered (file) |
117 |
;;;###autoload (let ((dir file)) |
;;;###autoload (let ((dir file)) |
118 |
;;;###autoload (while (and (stringp dir) |
;;;###autoload (while (and (stringp dir) |
119 |
;;;###autoload (not (equal dir (setq dir (file-name-directory dir))))) |
;;;###autoload (not (equal |
120 |
|
;;;###autoload dir (setq dir (file-name-directory dir)))) |
121 |
|
;;;###autoload dir) |
122 |
;;;###autoload (setq dir (if (file-directory-p |
;;;###autoload (setq dir (if (file-directory-p |
123 |
;;;###autoload (expand-file-name "MCVS/CVS" dir)) |
;;;###autoload (expand-file-name "MCVS/CVS" dir)) |
124 |
;;;###autoload t (directory-file-name dir)))) |
;;;###autoload t (directory-file-name dir)))) |
125 |
;;;###autoload (if (eq dir t) |
;;;###autoload (if (eq dir t) |
126 |
;;;###autoload (progn |
;;;###autoload (progn |
127 |
;;;###autoload (load "vc-mcvs") |
;;;###autoload (load "vc-mcvs") |
128 |
;;;###autoload (vc-mcvs-registered file))))) |
;;;###autoload (vc-mcvs-registered file))))) |
129 |
|
|
130 |
(defun vc-mcvs-root (file) |
(defun vc-mcvs-root (file) |
131 |
"Return the root directory of a Meta-CVS project, if any." |
"Return the root directory of a Meta-CVS project, if any." |
134 |
file 'mcvs-root |
file 'mcvs-root |
135 |
(let ((root nil)) |
(let ((root nil)) |
136 |
(while (not (or root |
(while (not (or root |
137 |
(equal file (setq file (file-name-directory file))))) |
(equal file (setq file (file-name-directory file))) |
138 |
|
(null file))) |
139 |
(if (file-directory-p (expand-file-name "MCVS/CVS" file)) |
(if (file-directory-p (expand-file-name "MCVS/CVS" file)) |
140 |
(setq root file) |
(setq root file) |
141 |
(setq file (directory-file-name file)))) |
(setq file (directory-file-name file)))) |