Mercurial > emacs

comparison lisp/vc-hg.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 d36b2b98840f
children 786d3a985758
comparison
equal deleted inserted replaced
85461:abd6fdb45765 85462:43a9834cf1a6
74 ;; - wash-log (file) ?? 74 ;; - wash-log (file) ??
75 ;; - logentry-check () NOT NEEDED 75 ;; - logentry-check () NOT NEEDED
76 ;; - comment-history (file) NOT NEEDED 76 ;; - comment-history (file) NOT NEEDED
77 ;; - update-changelog (files) NOT NEEDED 77 ;; - update-changelog (files) NOT NEEDED
78 ;; * diff (files &optional rev1 rev2 buffer) OK 78 ;; * diff (files &optional rev1 rev2 buffer) OK
79 ;; - revision-completion-table (file) COMMENTED OUT AS A WORKAROUND FOR A BUG 79 ;; - revision-completion-table (files) OK?
80 ;; - diff-tree (dir &optional rev1 rev2) TEST IT
81 ;; - annotate-command (file buf &optional rev) OK 80 ;; - annotate-command (file buf &optional rev) OK
82 ;; - annotate-time () OK 81 ;; - annotate-time () OK
83 ;; - annotate-current-time () ?? NOT NEEDED 82 ;; - annotate-current-time () ?? NOT NEEDED
84 ;; - annotate-extract-revision-at-line () OK 83 ;; - annotate-extract-revision-at-line () OK
85 ;; SNAPSHOT SYSTEM 84 ;; SNAPSHOT SYSTEM
307 table) 306 table)
308 (setq table (lazy-completion-table 307 (setq table (lazy-completion-table
309 table (lambda () (vc-hg-revision-table files)))) 308 table (lambda () (vc-hg-revision-table files))))
310 table)) 309 table))
311 310
312 (defun vc-hg-diff-tree (file &optional oldvers newvers buffer)
313 (vc-hg-diff (list file) oldvers newvers buffer))
314
315 (defun vc-hg-annotate-command (file buffer &optional revision) 311 (defun vc-hg-annotate-command (file buffer &optional revision)
316 "Execute \"hg annotate\" on FILE, inserting the contents in BUFFER. 312 "Execute \"hg annotate\" on FILE, inserting the contents in BUFFER.
317 Optional arg REVISION is a revision to annotate from." 313 Optional arg REVISION is a revision to annotate from."
318 (vc-hg-command buffer 0 file "annotate" "-d" "-n" (if revision (concat "-r" revision))) 314 (vc-hg-command buffer 0 file "annotate" "-d" "-n" (if revision (concat "-r" revision)))
319 (with-current-buffer buffer 315 (with-current-buffer buffer