* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de9e1011e40fab38cad3c71497e986d32d9f80db..e0d0e5dd07b1f25016fc346fc1b193d85f5f6737 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2007-10-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * 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.
+
 2007-10-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc-mtn.el (vc-mtn-revision-completion-table):

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 5ed46431fdaba3de29252ce38a4638df21771171..801e1942cb6ddd753b3726d9275281f03e448919 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -391,7 +391,6 @@ EDITABLE is ignored."
                  (list "-r" (format "%s..%s" rev1 rev2))
                (list "-r" rev1))))))
 
-(defalias 'vc-bzr-diff-tree 'vc-bzr-diff)
 
 
 ;; FIXME: vc-{next,previous}-revision need fixing in vc.el to deal with

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index d98afa3de17b1c408f9d739d5af2a4e103290c08..07714b26c32b7e10d4bd3a8cc51698cb0a337965 100644 (file)
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -87,8 +87,7 @@
 ;; - comment-history (file)                       ??
 ;; - update-changelog (files)                     COULD BE SUPPORTED
 ;; * diff (file &optional rev1 rev2 buffer)       OK
-;; - revision-completion-table (file)             NEEDED?
-;; - diff-tree (dir &optional rev1 rev2)          OK
+;; - revision-completion-table (files)            NEEDED?
 ;; - annotate-command (file buf &optional rev)    OK
 ;; - annotate-time ()                             OK
 ;; - annotate-current-time ()                     NOT NEEDED
@@ -336,9 +335,6 @@
                  table (lambda () (vc-git-revision-table files))))
     table))
 
-(defun vc-git-diff-tree (dir &optional rev1 rev2)
-  (vc-git-diff dir rev1 rev2))
-
 (defun vc-git-annotate-command (file buf &optional rev)
   ;; FIXME: rev is ignored
   (let ((name (file-relative-name file)))

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 8e9cf15688b5d1141b3527bda31ce2451a420dcc..872be45a2c19a91561744eb6697850f1a03f30f9 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -76,8 +76,7 @@
 ;; - comment-history (file)                    NOT NEEDED
 ;; - update-changelog (files)                  NOT NEEDED
 ;; * diff (files &optional rev1 rev2 buffer)   OK
-;; - revision-completion-table (file)          COMMENTED OUT AS A WORKAROUND FOR A BUG
-;; - diff-tree (dir &optional rev1 rev2)       TEST IT
+;; - revision-completion-table (files)         OK?
 ;; - annotate-command (file buf &optional rev) OK
 ;; - annotate-time ()                          OK
 ;; - annotate-current-time ()                  ?? NOT NEEDED
@@ -309,9 +308,6 @@
                  table (lambda () (vc-hg-revision-table files))))
     table))
 
-(defun vc-hg-diff-tree (file &optional oldvers newvers buffer)
-  (vc-hg-diff (list file) oldvers newvers buffer))
-
 (defun vc-hg-annotate-command (file buffer &optional revision)
   "Execute \"hg annotate\" on FILE, inserting the contents in BUFFER.
 Optional arg REVISION is a revision to annotate from."

diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index aa99e3f4273f676ee8662b427f694f366e74c8b0..0a2e69cefacdc78883cfd5ccb6653733c5e2475e 100644 (file)
--- 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."

diff --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index 0e10738a60d8c08d73788b4f36a9a2d4f93a2f0b..0b209fdd5afecee6ec75f7e4900e7bb052a29070 100644 (file)
--- a/lisp/vc-mtn.el
+++ b/lisp/vc-mtn.el
@@ -168,7 +168,6 @@
 
 (defun vc-mtn-wash-log (file))
 
-(defalias 'vc-mtn-diff-tree 'vc-mtn-diff)
 (defun vc-mtn-diff (files &optional rev1 rev2 buffer)
   (apply 'vc-mtn-command (or buffer "*vc-diff*") 1 files "diff"
          (append (if rev1 (list "-r" rev1)) (if rev2 (list "-r" rev2)))))

diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 43643b931d9dff294ebe6acf4957712fc29ed2a7..76fdbe5162fb6564637ec5a675fda8f5f74a0ec2 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -437,10 +437,6 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
        ;; status w.r.t whether the diff was empty or not.
        (buffer-size (get-buffer buffer)))))
 
-(defun vc-svn-diff-tree (dir &optional rev1 rev2)
-  "Diff all files at and below DIR."
-  (vc-svn-diff (list (file-name-as-directory dir)) rev1 rev2))
-
 ;;;
 ;;; Snapshot system
 ;;;