Mercurial > emacs
changeset 85462:43a9834cf1a6
* 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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 20 Oct 2007 01:28:35 +0000 |
| parents | abd6fdb45765 |
| children | 771c063a16df |
| files | lisp/ChangeLog lisp/vc-bzr.el lisp/vc-git.el lisp/vc-hg.el lisp/vc-mcvs.el lisp/vc-mtn.el lisp/vc-svn.el |
| diffstat | 7 files changed, 11 insertions(+), 29 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/ChangeLog Sat Oct 20 01:28:35 2007 +0000 @@ -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):
--- a/lisp/vc-bzr.el Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/vc-bzr.el Sat Oct 20 01:28:35 2007 +0000 @@ -391,7 +391,6 @@ (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
--- a/lisp/vc-git.el Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/vc-git.el Sat Oct 20 01:28:35 2007 +0000 @@ -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)))
--- a/lisp/vc-hg.el Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/vc-hg.el Sat Oct 20 01:28:35 2007 +0000 @@ -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."
--- a/lisp/vc-mcvs.el Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/vc-mcvs.el Sat Oct 20 01:28:35 2007 +0000 @@ -463,19 +463,6 @@ (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."
--- a/lisp/vc-mtn.el Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/vc-mtn.el Sat Oct 20 01:28:35 2007 +0000 @@ -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)))))
--- a/lisp/vc-svn.el Sat Oct 20 01:13:10 2007 +0000 +++ b/lisp/vc-svn.el Sat Oct 20 01:28:35 2007 +0000 @@ -437,10 +437,6 @@ ;; 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 ;;;