Mercurial > emacs
changeset 93941:c024d26a0a5d
(vc-cvs-diff-tree): Remove unused function.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 09 Apr 2008 20:42:39 +0000 |
| parents | 64ee685db81b |
| children | 187008494f10 |
| files | lisp/ChangeLog lisp/vc-cvs.el |
| diffstat | 2 files changed, 4 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 09 20:23:11 2008 +0000 +++ b/lisp/ChangeLog Wed Apr 09 20:42:39 2008 +0000 @@ -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.
--- a/lisp/vc-cvs.el Wed Apr 09 20:23:11 2008 +0000 +++ b/lisp/vc-cvs.el Wed Apr 09 20:42:39 2008 +0000 @@ -549,31 +549,6 @@ (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)