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
d7927b9f
Commit
d7927b9f
authored
Jul 20, 2007
by
Dan Nicolaescu
Browse files
(vc-hg-diff): Use vc-hg-command.
parent
3f0257cb
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
4 deletions
+9
-4
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/vc-hg.el
lisp/vc-hg.el
+5
-4
No files found.
lisp/ChangeLog
View file @
d7927b9f
2007-07-20 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-diff): Use vc-hg-command.
2007-07-20 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: Problem with foreground and background color when
...
...
lisp/vc-hg.el
View file @
d7927b9f
...
...
@@ -282,15 +282,16 @@
(
setq
oldvers
nil
))
(
if
(
and
(
not
oldvers
)
newvers
)
(
setq
oldvers
working
))
(
apply
'call-process
"hg"
nil
(
or
buffer
"*vc-diff*"
)
nil
"--cwd"
(
file-name-directory
(
car
files
))
"diff"
(
apply
#'
vc-hg-command
(
or
buffer
"*vc-diff*"
)
nil
(
mapcar
(
lambda
(
file
)
(
file-name-nondirectory
file
))
files
)
"--cwd"
(
file-name-directory
(
car
files
))
"diff"
(
append
(
if
oldvers
(
if
newvers
(
list
"-r"
oldvers
"-r"
newvers
)
(
list
"-r"
oldvers
))
(
list
""
))
(
mapcar
(
lambda
(
file
)
(
file-name-nondirectory
file
))
files
)))))
(
list
""
))))))
(
defun
vc-hg-diff-tree
(
file
&optional
oldvers
newvers
buffer
)
(
vc-hg-diff
(
list
file
)
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