From bf37bf11f9968f609663e85a3240f164aa1c4dc1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 28 May 2004 23:04:07 +0000 Subject: [PATCH] (vc-arch-diff): Add optional `buffer' arg. --- lisp/vc-arch.el | 4 ++-- 1 file 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. -- 2.39.5