Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
57b8089a
Commit
57b8089a
authored
Jul 24, 2007
by
Dan Nicolaescu
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(vc-hg-revision-completion-table): Temporarily comment
out.
parent
65e1b2a1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
8 deletions
+13
-8
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/vc-hg.el
lisp/vc-hg.el
+8
-8
No files found.
lisp/ChangeLog
View file @
57b8089a
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
lisp/vc-hg.el
View file @
57b8089a
...
...
@@ -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
file
s
"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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment