Mercurial > emacs
comparison lisp/vc-cvs.el @ 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 | 520490ae1b9a |
children | bfc762f0b49c |
comparison
equal
deleted
inserted
replaced
93940:64ee685db81b | 93941:c024d26a0a5d |
---|---|
546 invoke-cvs-diff-list "diff" | 546 invoke-cvs-diff-list "diff" |
547 (and oldvers (concat "-r" oldvers)) | 547 (and oldvers (concat "-r" oldvers)) |
548 (and newvers (concat "-r" newvers)) | 548 (and newvers (concat "-r" newvers)) |
549 (vc-switches 'CVS 'diff)))) | 549 (vc-switches 'CVS 'diff)))) |
550 (if async 1 status))) ; async diff, pessimistic assumption | 550 (if async 1 status))) ; async diff, pessimistic assumption |
551 | |
552 | |
553 (defun vc-cvs-diff-tree (dir &optional rev1 rev2) | |
554 "Diff all files at and below DIR." | |
555 (with-current-buffer "*vc-diff*" | |
556 (setq default-directory dir) | |
557 (if (vc-stay-local-p dir) | |
558 ;; local diff: do it filewise, and only for files that are modified | |
559 (vc-file-tree-walk | |
560 dir | |
561 (lambda (f) | |
562 (vc-exec-after | |
563 `(let ((coding-system-for-read (vc-coding-system-for-diff ',f))) | |
564 ;; possible optimization: fetch the state of all files | |
565 ;; in the tree via vc-cvs-dir-state-heuristic | |
566 (unless (vc-up-to-date-p ',f) | |
567 (message "Looking at %s" ',f) | |
568 (vc-diff-internal ',f ',rev1 ',rev2)))))) | |
569 ;; cvs diff: use a single call for the entire tree | |
570 (let ((coding-system-for-read | |
571 (or coding-system-for-read 'undecided))) | |
572 (apply 'vc-cvs-command "*vc-diff*" 1 nil "diff" | |
573 (and rev1 (concat "-r" rev1)) | |
574 (and rev2 (concat "-r" rev2)) | |
575 (vc-switches 'CVS 'diff)))))) | |
576 | 551 |
577 (defconst vc-cvs-annotate-first-line-re "^[0-9]") | 552 (defconst vc-cvs-annotate-first-line-re "^[0-9]") |
578 | 553 |
579 (defun vc-cvs-annotate-process-filter (process string) | 554 (defun vc-cvs-annotate-process-filter (process string) |
580 (setq string (concat (process-get process 'output) string)) | 555 (setq string (concat (process-get process 'output) string)) |