# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1085785447 0
# Node ID 45f2afeb662bc17de8cd5a082c069e34cff507d7
# Parent  9af433cd3820926b83354fe40c4c3ebdf96a4bea
(vc-arch-diff): Add optional `buffer' arg.

diff -r 9af433cd3820 -r 45f2afeb662b lisp/vc-arch.el
--- 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.