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

[Juanma Barranquero]

Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.16 emacs/lisp/vc-arch.el:1.17
*** emacs/lisp/vc-arch.el:1.16  Sun Jan  9 21:29:27 2005
--- emacs/lisp/vc-arch.el       Tue Jun 14 15:21:33 2005
***************
*** 178,184 ****
  (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"))))
--- 178,184 ----
  (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"))))
***************
*** 357,363 ****
  (defun vc-arch-checkout-model (file) 'implicit)
  
  (defun vc-arch-checkin (file rev comment)
!   (if rev (error "Committing to a specific revision is unsupported."))
    (let ((summary (file-relative-name file (vc-arch-root file))))
      ;; Extract a summary from the comment.
      (when (or (string-match "\\`Summary:[ \t]*\\(.*[^ \t\n]\\)\\([ 
\t]*\n\\)*" comment)
--- 357,363 ----
  (defun vc-arch-checkout-model (file) 'implicit)
  
  (defun vc-arch-checkin (file rev comment)
!   (if rev (error "Committing to a specific revision is unsupported"))
    (let ((summary (file-relative-name file (vc-arch-root file))))
      ;; Extract a summary from the comment.
      (when (or (string-match "\\`Summary:[ \t]*\\(.*[^ \t\n]\\)\\([ 
\t]*\n\\)*" comment)
***************
*** 376,382 ****
        ;; so we can diff with the current file.
        (setq newvers nil))
    (if newvers
!       (error "Diffing specific revisions not implemented.")
      (let* ((async (and (not vc-disable-async-diff) (fboundp 'start-process)))
           ;; Run the command from the root dir.
           (default-directory (vc-arch-root file))
--- 376,382 ----
        ;; so we can diff with the current file.
        (setq newvers nil))
    (if newvers
!       (error "Diffing specific revisions not implemented")
      (let* ((async (and (not vc-disable-async-diff) (fboundp 'start-process)))
           ;; Run the command from the root dir.
           (default-directory (vc-arch-root file))