[Emacs-diffs] Changes to emacs/lisp/vc-arch.el

[Stefan Monnier]

Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.6 emacs/lisp/vc-arch.el:1.7
*** emacs/lisp/vc-arch.el:1.6   Mon Apr 12 04:23:38 2004
--- emacs/lisp/vc-arch.el       Fri May 28 23:04:07 2004
***************
*** 375,381 ****
      (vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--"
                     (vc-switches 'Arch 'checkin))))
  
! (defun vc-arch-diff (file &optional oldvers newvers)
    "Get a difference report using Arch between two versions of FILE."
    (if (and newvers
           (vc-up-to-date-p file)
--- 375,381 ----
      (vc-arch-command nil 0 file "commit" "-s" summary "-L" comment "--"
                     (vc-switches 'Arch 'checkin))))
  
! (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,396 ****
           (default-directory (vc-arch-root file))
           (status
            (vc-arch-command
!            "*vc-diff*"
             (if async 'async 1)
             nil "file-diffs"
             ;; Arch does not support the typical flags.
--- 390,396 ----
           (default-directory (vc-arch-root file))
           (status
            (vc-arch-command
!            (or buffer "*vc-diff*")
             (if async 'async 1)
             nil "file-diffs"
             ;; Arch does not support the typical flags.