changeset 55814:45f2afeb662b

(vc-arch-diff): Add optional `buffer' arg.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 28 May 2004 23:04:07 +0000
parents 9af433cd3820
children a6b86fce5676
files lisp/vc-arch.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-arch.el	Fri May 28 22:54:58 2004 +0000
+++ b/lisp/vc-arch.el	Fri May 28 23:04:07 2004 +0000
@@ -375,7 +375,7 @@
     (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 @@
 	   (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.