;; - logentry-check () NOT NEEDED
;; - comment-history (file) NOT NEEDED
;; - update-changelog (files) NOT NEEDED
-;; * diff (file &optional rev1 rev2 buffer) OK
+;; * diff (files &optional rev1 rev2 buffer) OK
- ;; - revision-completion-table (file) OK
+ ;; - revision-completion-table (file) COMMENTED OUT AS A WORKAROUND FOR A BUG
;; - diff-tree (dir &optional rev1 rev2) TEST IT
;; - annotate-command (file buf &optional rev) OK
;; - annotate-time () OK
(buffer-substring-no-properties (point-min) (point-max))))))
;; Modelled after the similar function in vc-cvs.el
- (defun vc-hg-revision-completion-table (file)
- (lexical-let ((file file)
- table)
- (setq table (lazy-completion-table
- table (lambda () (vc-hg-revision-table file))))
- table))
+ ;; (defun vc-hg-revision-completion-table (file)
+ ;; (lexical-let ((file file)
+ ;; table)
+ ;; (setq table (lazy-completion-table
+ ;; table (lambda () (vc-hg-revision-table file))))
+ ;; table))
-(defalias 'vc-hg-diff-tree 'vc-hg-diff)
+(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 version)
"Execute \"hg annotate\" on FILE, inserting the contents in BUFFER.