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

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index c8efca02832380fffd2e42423af4efdc5a9535bd..6c67581a5a8dc0c2f5e0b0cdf0f17c41640bb58e 100644 (file)
--- 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.