Mercurial > emacs
comparison lisp/vc-mtn.el @ 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 | 786d3a985758 |
comparison
equal
deleted
inserted
replaced
85461:abd6fdb45765 | 85462:43a9834cf1a6 |
---|---|
166 ;; (defun vc-mtn-show-log-entry (revision) | 166 ;; (defun vc-mtn-show-log-entry (revision) |
167 ;; ) | 167 ;; ) |
168 | 168 |
169 (defun vc-mtn-wash-log (file)) | 169 (defun vc-mtn-wash-log (file)) |
170 | 170 |
171 (defalias 'vc-mtn-diff-tree 'vc-mtn-diff) | |
172 (defun vc-mtn-diff (files &optional rev1 rev2 buffer) | 171 (defun vc-mtn-diff (files &optional rev1 rev2 buffer) |
173 (apply 'vc-mtn-command (or buffer "*vc-diff*") 1 files "diff" | 172 (apply 'vc-mtn-command (or buffer "*vc-diff*") 1 files "diff" |
174 (append (if rev1 (list "-r" rev1)) (if rev2 (list "-r" rev2))))) | 173 (append (if rev1 (list "-r" rev1)) (if rev2 (list "-r" rev2))))) |
175 | 174 |
176 (defun vc-mtn-annotate-command (file buf &optional rev) | 175 (defun vc-mtn-annotate-command (file buf &optional rev) |