Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
87d1a48e
Commit
87d1a48e
authored
Oct 20, 2007
by
Stefan Monnier
Browse files
(vc-hg-revision-completion-table, vc-hg-revision-table): Make it work when the
arg is a list of files.
parent
9f11ce4e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
5 deletions
+6
-5
lisp/ChangeLog
lisp/ChangeLog
+1
-0
lisp/vc-hg.el
lisp/vc-hg.el
+5
-5
No files found.
lisp/ChangeLog
View file @
87d1a48e
2007-10-20 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-hg.el (vc-hg-revision-completion-table, vc-hg-revision-table):
* vc-git.el (vc-git-revision-completion-table, vc-git-revision-table):
* vc-cvs.el (vc-cvs-revision-completion-table):
* vc-arch.el (vc-arch-revision-completion-table): Make it work when the
...
...
lisp/vc-hg.el
View file @
87d1a48e
...
...
@@ -294,19 +294,19 @@
(
list
"-r"
oldvers
))
(
list
""
))))))
(
defun
vc-hg-revision-table
(
file
)
(
let
((
default-directory
(
file-name-directory
file
)))
(
defun
vc-hg-revision-table
(
file
s
)
(
let
((
default-directory
(
file-name-directory
(
car
file
s
)
)))
(
with-temp-buffer
(
vc-hg-command
t
nil
file
"log"
"--template"
"{rev} "
)
(
split-string
(
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
)
(
defun
vc-hg-revision-completion-table
(
file
s
)
(
lexical-let
((
file
s
file
s
)
table
)
(
setq
table
(
lazy-completion-table
table
(
lambda
()
(
vc-hg-revision-table
file
))))
table
(
lambda
()
(
vc-hg-revision-table
file
s
))))
table
))
(
defun
vc-hg-diff-tree
(
file
&optional
oldvers
newvers
buffer
)
...
...
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