[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-arch.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-arch.el [lexbind] |
Date: |
Tue, 06 Jul 2004 06:01:05 -0400 |
Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.3.2.3 emacs/lisp/vc-arch.el:1.3.2.4
*** emacs/lisp/vc-arch.el:1.3.2.3 Tue Apr 13 10:16:17 2004
--- emacs/lisp/vc-arch.el Tue Jul 6 09:31:50 2004
***************
*** 375,381 ****
(vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--"
(vc-switches 'Arch 'checkin))))
! (defun vc-arch-diff (file &optional oldvers newvers)
"Get a difference report using Arch between two versions of FILE."
(if (and newvers
(vc-up-to-date-p file)
--- 375,381 ----
(vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--"
(vc-switches 'Arch 'checkin))))
! (defun vc-arch-diff (file &optional oldvers newvers buffer)
"Get a difference report using Arch between two versions of FILE."
(if (and newvers
(vc-up-to-date-p file)
***************
*** 390,396 ****
(default-directory (vc-arch-root file))
(status
(vc-arch-command
! "*vc-diff*"
(if async 'async 1)
nil "file-diffs"
;; Arch does not support the typical flags.
--- 390,396 ----
(default-directory (vc-arch-root file))
(status
(vc-arch-command
! (or buffer "*vc-diff*")
(if async 'async 1)
nil "file-diffs"
;; Arch does not support the typical flags.