1 |
;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system |
;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system |
2 |
|
|
3 |
;; Copyright (C) 1995,98,99,2000,01,02,03,2004 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: FSF (see vc.el for full credits) |
;; Author: FSF (see vc.el for full credits) |
7 |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
115 |
;;; |
;;; |
116 |
|
|
117 |
;;;###autoload (defun vc-mcvs-registered (file) |
;;;###autoload (defun vc-mcvs-registered (file) |
118 |
;;;###autoload (let ((dir file)) |
;;;###autoload (if (vc-find-root file "MCVS/CVS") |
119 |
;;;###autoload (while (and (stringp dir) |
;;;###autoload (progn |
120 |
;;;###autoload (not (equal |
;;;###autoload (load "vc-mcvs") |
121 |
;;;###autoload dir (setq dir (file-name-directory dir)))) |
;;;###autoload (vc-mcvs-registered file)))) |
|
;;;###autoload dir) |
|
|
;;;###autoload (setq dir (if (file-directory-p |
|
|
;;;###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))))) |
|
122 |
|
|
123 |
(defun vc-mcvs-root (file) |
(defun vc-mcvs-root (file) |
124 |
"Return the root directory of a Meta-CVS project, if any." |
"Return the root directory of a Meta-CVS project, if any." |
125 |
(or (vc-file-getprop file 'mcvs-root) |
(or (vc-file-getprop file 'mcvs-root) |
126 |
(vc-file-setprop |
(vc-file-setprop file 'mcvs-root (vc-find-root file "MCVS/CVS")))) |
|
file 'mcvs-root |
|
|
(let ((root nil)) |
|
|
(while (not (or root |
|
|
(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)))) |
|
|
root)))) |
|
127 |
|
|
128 |
(defun vc-mcvs-read (file) |
(defun vc-mcvs-read (file) |
129 |
(if (file-readable-p file) |
(if (file-readable-p file) |
592 |
|
|
593 |
(provide 'vc-mcvs) |
(provide 'vc-mcvs) |
594 |
|
|
595 |
;;; arch-tag: a39c7c1c-5247-429d-88df-dd7187d2e704 |
;; arch-tag: a39c7c1c-5247-429d-88df-dd7187d2e704 |
596 |
;;; vc-mcvs.el ends here |
;;; vc-mcvs.el ends here |