(vc-cvs-diff-tree): Remove unused function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a54975f55869a9783ff2abcbe57d1519e49a5a26..5971d250802684b5b276d6f6d05f06530b3c3ade 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * vc-cvs.el (vc-cvs-diff-tree): Remove unused function.
+
 2008-04-09  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp.el (tramp-find-file-name-coding-system-alist): New defun.

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index e3ad094d55794792d093287cdfa4b930a46409dd..2a6bbf51750d081d067e49f8f5b3e8fe428502c6 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -549,31 +549,6 @@ Will fail unless you have administrative privileges on the repo."
                          (vc-switches 'CVS 'diff))))
     (if async 1 status))) ; async diff, pessimistic assumption
 
-
-(defun vc-cvs-diff-tree (dir &optional rev1 rev2)
-  "Diff all files at and below DIR."
-  (with-current-buffer "*vc-diff*"
-    (setq default-directory dir)
-    (if (vc-stay-local-p dir)
-        ;; local diff: do it filewise, and only for files that are modified
-        (vc-file-tree-walk
-         dir
-         (lambda (f)
-           (vc-exec-after
-            `(let ((coding-system-for-read (vc-coding-system-for-diff ',f)))
-               ;; possible optimization: fetch the state of all files
-               ;; in the tree via vc-cvs-dir-state-heuristic
-               (unless (vc-up-to-date-p ',f)
-                 (message "Looking at %s" ',f)
-                 (vc-diff-internal ',f ',rev1 ',rev2))))))
-      ;; cvs diff: use a single call for the entire tree
-      (let ((coding-system-for-read
-             (or coding-system-for-read 'undecided)))
-        (apply 'vc-cvs-command "*vc-diff*" 1 nil "diff"
-               (and rev1 (concat "-r" rev1))
-               (and rev2 (concat "-r" rev2))
-               (vc-switches 'CVS 'diff))))))
-
 (defconst vc-cvs-annotate-first-line-re "^[0-9]")
 
 (defun vc-cvs-annotate-process-filter (process string)