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

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

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

revision 1.3.2.7 by miles, Thu Sep 16 00:12:21 2004 UTC revision 1.3.2.8 by miles, Thu Sep 16 00:14:58 2004 UTC
# Line 73  Line 73 
73  (put 'Arch 'vc-functions nil)  (put 'Arch 'vc-functions nil)
74    
75  ;;;###autoload (defun vc-arch-registered (file)  ;;;###autoload (defun vc-arch-registered (file)
76  ;;;###autoload   (let ((dir file))  ;;;###autoload   (if (vc-find-root file "{arch}/=tagging-method")
77  ;;;###autoload     (while (and (stringp dir)  ;;;###autoload       (progn
78  ;;;###autoload                 (not (equal  ;;;###autoload         (load "vc-arch")
79  ;;;###autoload                       dir (setq dir (file-name-directory dir))))  ;;;###autoload         (vc-arch-registered file))))
 ;;;###autoload                 dir)  
 ;;;###autoload       (setq dir (if (file-directory-p  
 ;;;###autoload                      (expand-file-name "{arch}" dir))  
 ;;;###autoload                     t (directory-file-name dir))))  
 ;;;###autoload     (if (eq dir t)  
 ;;;###autoload          (progn  
 ;;;###autoload           (load "vc-arch")  
 ;;;###autoload           (vc-arch-registered file)))))  
80    
81  (defun vc-arch-add-tagline ()  (defun vc-arch-add-tagline ()
82    "Add an `arch-tag' to the end of the current file."    "Add an `arch-tag' to the end of the current file."
# Line 186  Only the value `maybe' can be trusted :- Line 178  Only the value `maybe' can be trusted :-
178  (defun vc-arch-root (file)  (defun vc-arch-root (file)
179    "Return the root directory of a Arch project, if any."    "Return the root directory of a Arch project, if any."
180    (or (vc-file-getprop file 'arch-root)    (or (vc-file-getprop file 'arch-root)
181        (vc-file-setprop        (vc-file-setprop
182         file 'arch-root         ;; Check the =tagging-method, in case someone naively manually
183         (let ((root nil))         ;; creates a {arch} directory somewhere.
184           (while (not (or root         file 'arch-root (vc-find-root file "{arch}/=tagging-method"))))
                          (equal file (setq file (file-name-directory file)))  
                          (null file)))  
            ;; Check the =tagging-method, in case someone naively manually  
            ;; creates a {arch} directory somewhere.  
            (if (file-exists-p (expand-file-name "{arch}/=tagging-method" file))  
                (setq root file)  
              (setq file (directory-file-name file))))  
          root))))  
185    
186  (defun vc-arch-register (file &optional rev comment)  (defun vc-arch-register (file &optional rev comment)
187    (if rev (error "Explicit initial revision not supported for Arch"))    (if rev (error "Explicit initial revision not supported for Arch"))

Legend:
Removed from v.1.3.2.7  
changed lines
  Added in v.1.3.2.8

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