diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-05-28 23:04:07 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-05-28 23:04:07 +0000 |
| commit | bf37bf11f9968f609663e85a3240f164aa1c4dc1 (patch) | |
| tree | 252a77caa005aebb5898bb4f126302cc33ba2013 /lisp | |
| parent | 034a61136389529b364d7556cdf3176bdc4c9a87 (diff) | |
| download | emacs-bf37bf11f9968f609663e85a3240f164aa1c4dc1.tar.gz emacs-bf37bf11f9968f609663e85a3240f164aa1c4dc1.tar.bz2 emacs-bf37bf11f9968f609663e85a3240f164aa1c4dc1.zip | |
(vc-arch-diff): Add optional `buffer' arg.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc-arch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index c8efca02832..6c67581a5a8 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -375,7 +375,7 @@ Return non-nil if FILE is unchanged." (vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--" (vc-switches 'Arch 'checkin)))) -(defun vc-arch-diff (file &optional oldvers newvers) +(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,7 +390,7 @@ Return non-nil if FILE is unchanged." (default-directory (vc-arch-root file)) (status (vc-arch-command - "*vc-diff*" + (or buffer "*vc-diff*") (if async 'async 1) nil "file-diffs" ;; Arch does not support the typical flags. |