# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1185303722 0
# Node ID ce0473a5b0311d66dce609030e88d7f2c8125430
# Parent  964d6961bdb6bca11c68b799b5efb11e96669208
(vc-hg-revision-completion-table): Temporarily comment
out.

diff -r 964d6961bdb6 -r ce0473a5b031 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 24 07:12:18 2007 +0000
+++ b/lisp/ChangeLog	Tue Jul 24 19:02:02 2007 +0000
@@ -1,3 +1,8 @@
+2007-07-24  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-hg.el (vc-hg-revision-completion-table): Temporarily comment
+	out.
+
 2007-07-24  Alan Mackenzie  <acm@muc.de>
 
 	* emacs-lisp/bytecomp.el (byte-compile-from-buffer): initialise
diff -r 964d6961bdb6 -r ce0473a5b031 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Tue Jul 24 07:12:18 2007 +0000
+++ b/lisp/vc-hg.el	Tue Jul 24 19:02:02 2007 +0000
@@ -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 @@
 (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)