mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* vc-bzr.el (vc-bzr-diff-tree):

Browse Source 
* vc-git.el (vc-git-diff-tree):
* vc-hg.el (vc-hg-diff-tree):
* vc-mcvs.el (vc-mcvs-diff-tree):
* vc-mtn.el (vc-mtn-diff-tree):
* vc-svn.el (vc-svn-diff-tree): Remove.
This commit is contained in:
Stefan Monnier 2007-10-20 01:28:35 +00:00
parent 844b90ae59
commit 54a2247d6e
7 changed files with 11 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-bzr.el (vc-bzr-diff-tree):
* vc-git.el (vc-git-diff-tree):
* vc-hg.el (vc-hg-diff-tree):
* vc-mcvs.el (vc-mcvs-diff-tree):
* vc-mtn.el (vc-mtn-diff-tree):
* vc-svn.el (vc-svn-diff-tree): Remove.
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-mtn.el (vc-mtn-revision-completion-table):

1
lisp/vc-bzr.el
View File

@ -391,7 +391,6 @@ EDITABLE is ignored."
(list "-r" (format "%s..%s" rev1 rev2))
(list "-r" rev1))))))
(defalias 'vc-bzr-diff-tree 'vc-bzr-diff)
;; FIXME: vc-{next,previous}-revision need fixing in vc.el to deal with

6
lisp/vc-git.el
View File

@ -87,8 +87,7 @@
;; - comment-history (file) ??
;; - update-changelog (files) COULD BE SUPPORTED
;; * diff (file &optional rev1 rev2 buffer) OK
;; - revision-completion-table (file) NEEDED?
;; - diff-tree (dir &optional rev1 rev2) OK
;; - revision-completion-table (files) NEEDED?
;; - annotate-command (file buf &optional rev) OK
;; - annotate-time () OK
;; - annotate-current-time () NOT NEEDED
@ -336,9 +335,6 @@
table (lambda () (vc-git-revision-table files))))
table))
(defun vc-git-diff-tree (dir &optional rev1 rev2)
(vc-git-diff dir rev1 rev2))
(defun vc-git-annotate-command (file buf &optional rev)
;; FIXME: rev is ignored
(let ((name (file-relative-name file)))

6
lisp/vc-hg.el
View File

@ -76,8 +76,7 @@
;; - comment-history (file) NOT NEEDED
;; - update-changelog (files) NOT NEEDED
;; * diff (files &optional rev1 rev2 buffer) OK
;; - revision-completion-table (file) COMMENTED OUT AS A WORKAROUND FOR A BUG
;; - diff-tree (dir &optional rev1 rev2) TEST IT
;; - revision-completion-table (files) OK?
;; - annotate-command (file buf &optional rev) OK
;; - annotate-time () OK
;; - annotate-current-time () ?? NOT NEEDED
@ -309,9 +308,6 @@
table (lambda () (vc-hg-revision-table files))))
table))
(defun vc-hg-diff-tree (file &optional oldvers newvers buffer)
(vc-hg-diff (list file) oldvers newvers buffer))
(defun vc-hg-annotate-command (file buffer &optional revision)
"Execute \"hg annotate\" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from."

13
lisp/vc-mcvs.el
View File

@ -463,19 +463,6 @@ The changes are between FIRST-REVISION and SECOND-REVISION."
(vc-switches 'MCVS 'diff))))
(if async 1 status))) ; async diff, pessimistic assumption.
(defun vc-mcvs-diff-tree (dir &optional rev1 rev2)
"Diff all files at and below DIR."
(with-current-buffer "*vc-diff*"
;; Run the command from the root dir so that `mcvs filt' returns
;; valid relative names.
(setq default-directory (vc-mcvs-root dir))
;; cvs diff: use a single call for the entire tree
(let ((coding-system-for-read (or coding-system-for-read 'undecided)))
(apply 'vc-mcvs-command "*vc-diff*" 1 dir "diff"
(and rev1 (concat "-r" rev1))
(and rev2 (concat "-r" rev2))
(vc-switches 'MCVS 'diff)))))
(defun vc-mcvs-annotate-command (file buffer &optional revision)
"Execute \"mcvs annotate\" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from."

1
lisp/vc-mtn.el
View File

@ -168,7 +168,6 @@
(defun vc-mtn-wash-log (file))
(defalias 'vc-mtn-diff-tree 'vc-mtn-diff)
(defun vc-mtn-diff (files &optional rev1 rev2 buffer)
(apply 'vc-mtn-command (or buffer "*vc-diff*") 1 files "diff"
(append (if rev1 (list "-r" rev1)) (if rev2 (list "-r" rev2)))))

4
lisp/vc-svn.el
View File

@ -437,10 +437,6 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
;; status w.r.t whether the diff was empty or not.
(buffer-size (get-buffer buffer)))))
(defun vc-svn-diff-tree (dir &optional rev1 rev2)
"Diff all files at and below DIR."
(vc-svn-diff (list (file-name-as-directory dir)) rev1 rev2))
;;;
;;; Snapshot system
;;;