emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/vc-arch.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/vc-arch.el [emacs-unicode-2]
Date: Wed, 15 Sep 2004 05:22:57 -0400

Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.6.2.4 emacs/lisp/vc-arch.el:1.6.2.5
*** emacs/lisp/vc-arch.el:1.6.2.4       Thu Sep  9 09:36:32 2004
--- emacs/lisp/vc-arch.el       Wed Sep 15 08:59:56 2004
***************
*** 73,90 ****
  (put 'Arch 'vc-functions nil)
  
  ;;;###autoload (defun vc-arch-registered (file)
! ;;;###autoload   (let ((dir file))
! ;;;###autoload     (while (and (stringp dir)
! ;;;###autoload                 (not (equal
! ;;;###autoload                       dir (setq dir (file-name-directory 
dir))))
! ;;;###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)))))
  
  (defun vc-arch-add-tagline ()
    "Add an `arch-tag' to the end of the current file."
--- 73,82 ----
  (put 'Arch 'vc-functions nil)
  
  ;;;###autoload (defun vc-arch-registered (file)
! ;;;###autoload   (if (vc-find-root file "{arch}/=tagging-method")
! ;;;###autoload       (progn
! ;;;###autoload         (load "vc-arch")
! ;;;###autoload         (vc-arch-registered file))))
  
  (defun vc-arch-add-tagline ()
    "Add an `arch-tag' to the end of the current file."
***************
*** 186,203 ****
  (defun vc-arch-root (file)
    "Return the root directory of a Arch project, if any."
    (or (vc-file-getprop file 'arch-root)
!       (vc-file-setprop
!        file 'arch-root
!        (let ((root nil))
!        (while (not (or root
!                        (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))))
  
  (defun vc-arch-register (file &optional rev comment)
    (if rev (error "Explicit initial revision not supported for Arch"))
--- 178,187 ----
  (defun vc-arch-root (file)
    "Return the root directory of a Arch project, if any."
    (or (vc-file-getprop file 'arch-root)
!       (vc-file-setprop 
!        ;; Check the =tagging-method, in case someone naively manually
!        ;; creates a {arch} directory somewhere.
!        file 'arch-root (vc-find-root file "{arch}/=tagging-method"))))
  
  (defun vc-arch-register (file &optional rev comment)
    (if rev (error "Explicit initial revision not supported for Arch"))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]