Mercurial > emacs

comparison lisp/vc-git.el @ 85462:43a9834cf1a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 dec6fdd5ddf4
children 38193bd1ab69
comparison
equal deleted inserted replaced
85461:abd6fdb45765 85462:43a9834cf1a6
85 ;; - wash-log (file) COULD BE SUPPORTED 85 ;; - wash-log (file) COULD BE SUPPORTED
86 ;; - logentry-check () NOT NEEDED 86 ;; - logentry-check () NOT NEEDED
87 ;; - comment-history (file) ?? 87 ;; - comment-history (file) ??
88 ;; - update-changelog (files) COULD BE SUPPORTED 88 ;; - update-changelog (files) COULD BE SUPPORTED
89 ;; * diff (file &optional rev1 rev2 buffer) OK 89 ;; * diff (file &optional rev1 rev2 buffer) OK
90 ;; - revision-completion-table (file) NEEDED? 90 ;; - revision-completion-table (files) NEEDED?
91 ;; - diff-tree (dir &optional rev1 rev2) OK
92 ;; - annotate-command (file buf &optional rev) OK 91 ;; - annotate-command (file buf &optional rev) OK
93 ;; - annotate-time () OK 92 ;; - annotate-time () OK
94 ;; - annotate-current-time () NOT NEEDED 93 ;; - annotate-current-time () NOT NEEDED
95 ;; - annotate-extract-revision-at-line () OK 94 ;; - annotate-extract-revision-at-line () OK
96 ;; SNAPSHOT SYSTEM 95 ;; SNAPSHOT SYSTEM
333 (lexical-let ((files files) 332 (lexical-let ((files files)
334 table) 333 table)
335 (setq table (lazy-completion-table 334 (setq table (lazy-completion-table
336 table (lambda () (vc-git-revision-table files)))) 335 table (lambda () (vc-git-revision-table files))))
337 table)) 336 table))
338
339 (defun vc-git-diff-tree (dir &optional rev1 rev2)
340 (vc-git-diff dir rev1 rev2))
341 337
342 (defun vc-git-annotate-command (file buf &optional rev) 338 (defun vc-git-annotate-command (file buf &optional rev)
343 ;; FIXME: rev is ignored 339 ;; FIXME: rev is ignored
344 (let ((name (file-relative-name file))) 340 (let ((name (file-relative-name file)))
345 (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev))))) 341 (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev)))))