From 57b8089a8f188173afb670876307fcf17073f423 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Tue, 24 Jul 2007 19:02:02 +0000 Subject: [PATCH] (vc-hg-revision-completion-table): Temporarily comment out. --- lisp/ChangeLog | 5 +++++ lisp/vc-hg.el | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2f0a2080316..b5d851e6345 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-07-24 Dan Nicolaescu + + * vc-hg.el (vc-hg-revision-completion-table): Temporarily comment + out. + 2007-07-24 Alan Mackenzie * emacs-lisp/bytecomp.el (byte-compile-from-buffer): initialise diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 7fd8d5f532b..02f6e460f71 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -72,7 +72,7 @@ ;; - comment-history (file) NOT NEEDED ;; - update-changelog (files) NOT NEEDED ;; * diff (file &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 @@ -292,12 +292,12 @@ (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) @@ -385,7 +385,7 @@ COMMENT is ignored." (defun vc-hg-checkin (file rev comment) "HG-specific version of `vc-backend-checkin'. REV is ignored." - (vc-hg-command nil 0 files "commit" "-m" comment)) + (vc-hg-command nil 0 file "commit" "-m" comment)) (defun vc-hg-find-version (file rev buffer) (let ((coding-system-for-read 'binary) -- 2.39.5