Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5e0fdc5a
Commit
5e0fdc5a
authored
Oct 21, 2001
by
André Spiegel
Browse files
(vc-cvs-diff-tree): New function.
parent
2c87edc1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
25 additions
and
1 deletion
+25
-1
lisp/vc-cvs.el
lisp/vc-cvs.el
+25
-1
No files found.
lisp/vc-cvs.el
View file @
5e0fdc5a
...
...
@@ -5,7 +5,7 @@
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <spiegel@gnu.org>
;; $Id: vc-cvs.el,v 1.2
3
2001/0
7/04 15:51:18 monnier
Exp $
;; $Id: vc-cvs.el,v 1.2
4
2001/0
8/28 17:06:36 spiegel
Exp $
;; This file is part of GNU Emacs.
...
...
@@ -523,6 +523,30 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
1
;; async diff, pessimistic assumption
status
))))
(
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-cvs-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
',rel1
',rel2
))))))
;; cvs diff: use a single call for the entire tree
(
let
((
coding-system-for-read
(
or
coding-system-for-read
'undecided
)))
(
apply
'vc-do-command
"*vc-diff*"
1
"cvs"
nil
"diff"
(
and
rel1
(
concat
"-r"
rel1
))
(
and
rel2
(
concat
"-r"
rel2
))
(
vc-diff-switches-list
cvs
))))))
(
defun
vc-cvs-annotate-command
(
file
buffer
&optional
version
)
"Execute \"cvs annotate\" on FILE, inserting the contents in BUFFER.
Optional arg VERSION is a version to annotate from."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment