/[emacs]/emacs/lisp/vc-arch.el
ViewVC logotype

Diff of /emacs/lisp/vc-arch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.2.3 by miles, Tue Apr 13 10:16:17 2004 UTC revision 1.3.2.4 by miles, Tue Jul 6 09:31:50 2004 UTC
# Line 375  Return non-nil if FILE is unchanged." Line 375  Return non-nil if FILE is unchanged."
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)
# Line 390  Return non-nil if FILE is unchanged." Line 390  Return non-nil if FILE is unchanged."
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.

Legend:
Removed from v.1.3.2.3  
changed lines
  Added in v.1.3.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26