mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2008-04-09 20:42:39 +00:00
parent 5bad314022
commit 8f49a7254d
2 changed files with 4 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

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

25
lisp/vc-cvs.el
View file

@ -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)