From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 28 May 2004 23:04:07 +0000 (+0000)
Subject: (vc-arch-diff): Add optional `buffer' arg.
X-Git-Tag: ttn-vms-21-2-B4~6026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf37bf11f9968f609663e85a3240f164aa1c4dc1;p=emacs.git

(vc-arch-diff): Add optional `buffer' arg.
---

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.