/[emacs]/emacs/lisp/vc-mcvs.el
ViewVC logotype

Diff of /emacs/lisp/vc-mcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.2.3 by miles, Tue Jul 6 09:31:50 2004 UTC revision 1.11.2.4 by miles, Thu Sep 16 00:14:59 2004 UTC
# Line 1  Line 1 
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>
# Line 114  This is only meaningful if you don't use Line 115  This is only meaningful if you don't use
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)
# Line 608  and that it passes `vc-mcvs-global-switc Line 592  and that it passes `vc-mcvs-global-switc
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

Legend:
Removed from v.1.11.2.3  
changed lines
  Added in v.1.11.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26