diff options
| author | Stefan Monnier | 2004-05-28 23:04:07 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-05-28 23:04:07 +0000 |
| commit | bf37bf11f9968f609663e85a3240f164aa1c4dc1 (patch) | |
| tree | 252a77caa005aebb5898bb4f126302cc33ba2013 | |
| parent | 034a61136389529b364d7556cdf3176bdc4c9a87 (diff) | |
| download | emacs-bf37bf11f9968f609663e85a3240f164aa1c4dc1.tar.gz emacs-bf37bf11f9968f609663e85a3240f164aa1c4dc1.zip | |
(vc-arch-diff): Add optional `buffer' arg.
| -rw-r--r-- | lisp/vc-arch.el | 4 |
1 files 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." | |||
| 375 | (vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--" | 375 | (vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--" |
| 376 | (vc-switches 'Arch 'checkin)))) | 376 | (vc-switches 'Arch 'checkin)))) |
| 377 | 377 | ||
| 378 | (defun vc-arch-diff (file &optional oldvers newvers) | 378 | (defun vc-arch-diff (file &optional oldvers newvers buffer) |
| 379 | "Get a difference report using Arch between two versions of FILE." | 379 | "Get a difference report using Arch between two versions of FILE." |
| 380 | (if (and newvers | 380 | (if (and newvers |
| 381 | (vc-up-to-date-p file) | 381 | (vc-up-to-date-p file) |
| @@ -390,7 +390,7 @@ Return non-nil if FILE is unchanged." | |||
| 390 | (default-directory (vc-arch-root file)) | 390 | (default-directory (vc-arch-root file)) |
| 391 | (status | 391 | (status |
| 392 | (vc-arch-command | 392 | (vc-arch-command |
| 393 | "*vc-diff*" | 393 | (or buffer "*vc-diff*") |
| 394 | (if async 'async 1) | 394 | (if async 'async 1) |
| 395 | nil "file-diffs" | 395 | nil "file-diffs" |
| 396 | ;; Arch does not support the typical flags. | 396 | ;; Arch does not support the typical flags. |