375 |
(vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--" |
(vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--" |
376 |
(vc-switches 'Arch 'checkin)))) |
(vc-switches 'Arch 'checkin)))) |
377 |
|
|
378 |
(defun vc-arch-diff (file &optional oldvers newvers) |
(defun vc-arch-diff (file &optional oldvers newvers buffer) |
379 |
"Get a difference report using Arch between two versions of FILE." |
"Get a difference report using Arch between two versions of FILE." |
380 |
(if (and newvers |
(if (and newvers |
381 |
(vc-up-to-date-p file) |
(vc-up-to-date-p file) |
390 |
(default-directory (vc-arch-root file)) |
(default-directory (vc-arch-root file)) |
391 |
(status |
(status |
392 |
(vc-arch-command |
(vc-arch-command |
393 |
"*vc-diff*" |
(or buffer "*vc-diff*") |
394 |
(if async 'async 1) |
(if async 'async 1) |
395 |
nil "file-diffs" |
nil "file-diffs" |
396 |
;; Arch does not support the typical flags. |
;; Arch does not support the typical flags. |