/[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.9 by monnier, Sun May 11 23:55:07 2003 UTC revision 1.10 by monnier, Tue May 13 13:52:45 2003 UTC
# Line 116  This is only meaningful if you don't use Line 116  This is only meaningful if you don't use
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."
# Line 132  This is only meaningful if you don't use Line 134  This is only meaningful if you don't use
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))))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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