diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:28:35 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-20 01:28:35 +0000 |
commit | 07c1f9de622829c3f8032495fd6c8049fdc8857a (patch) | |
tree | 27082f8f87470168d08609956e5445a77d93030c /lisp/vc-mcvs.el | |
parent | 8b301faa41d150a5d633fe524d9c7df068ae53a2 (diff) | |
download | emacs-07c1f9de622829c3f8032495fd6c8049fdc8857a.tar.gz |
* vc-bzr.el (vc-bzr-diff-tree):
* vc-git.el (vc-git-diff-tree):
* vc-hg.el (vc-hg-diff-tree):
* vc-mcvs.el (vc-mcvs-diff-tree):
* vc-mtn.el (vc-mtn-diff-tree):
* vc-svn.el (vc-svn-diff-tree): Remove.
Diffstat (limited to 'lisp/vc-mcvs.el')
-rw-r--r-- | lisp/vc-mcvs.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index aa99e3f4273..0a2e69cefac 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -463,19 +463,6 @@ The changes are between FIRST-REVISION and SECOND-REVISION." (vc-switches 'MCVS 'diff)))) (if async 1 status))) ; async diff, pessimistic assumption. -(defun vc-mcvs-diff-tree (dir &optional rev1 rev2) - "Diff all files at and below DIR." - (with-current-buffer "*vc-diff*" - ;; Run the command from the root dir so that `mcvs filt' returns - ;; valid relative names. - (setq default-directory (vc-mcvs-root dir)) - ;; cvs diff: use a single call for the entire tree - (let ((coding-system-for-read (or coding-system-for-read 'undecided))) - (apply 'vc-mcvs-command "*vc-diff*" 1 dir "diff" - (and rev1 (concat "-r" rev1)) - (and rev2 (concat "-r" rev2)) - (vc-switches 'MCVS 'diff))))) - (defun vc-mcvs-annotate-command (file buffer &optional revision) "Execute \"mcvs annotate\" on FILE, inserting the contents in BUFFER. Optional arg REVISION is a revision to annotate from." |