diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2007-07-24 19:02:02 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2007-07-24 19:02:02 +0000 |
| commit | 57b8089a8f188173afb670876307fcf17073f423 (patch) | |
| tree | 0e8d8ffa9d26ff29acf0468c61fd90022d136390 /lisp | |
| parent | 65e1b2a10541694b8f6f4f9f378a45c8b9184ef2 (diff) | |
| download | emacs-57b8089a8f188173afb670876307fcf17073f423.tar.gz | |
(vc-hg-revision-completion-table): Temporarily comment
out.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 --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) |