Mercurial > emacs
changeset 78211:ce0473a5b031
(vc-hg-revision-completion-table): Temporarily comment
out.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 24 Jul 2007 19:02:02 +0000 |
| parents | 964d6961bdb6 |
| children | 87b807b2d9b1 |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)