andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-hg-dir-state, vc-hg-dir-status): Pass the dir

Browse source 
argument to vc-hg-command.
This commit is contained in:
Dan Nicolaescu 2008-01-07 03:04:01 +00:00
parent ee2e9728e4
commit 70b58c473e
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-01-07 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-dir-state, vc-hg-dir-status): Pass the dir
argument to vc-hg-command.
2008-01-06 Stefan Monnier <monnier@iro.umontreal.ca>
* vc.el (vc-ensure-vc-buffer): Check liveness of vc-parent-buffer.

4
lisp/vc-hg.el
View file

@ -184,7 +184,7 @@
(defun vc-hg-dir-state (dir)
(with-temp-buffer
(buffer-disable-undo) ;; Because these buffers can get huge
(vc-hg-command (current-buffer) nil nil "status" "-A")
(vc-hg-command (current-buffer) nil dir "status" "-A")
(goto-char (point-min))
(let ((status-char nil)
(file nil))
@ -482,7 +482,7 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-dir-status (dir)
"Return a list of conses (file . state) for DIR."
(with-temp-buffer
(vc-hg-command (current-buffer) nil nil "status" "-A")
(vc-hg-command (current-buffer) nil dir "status" "-A")
(goto-char (point-min))
(let ((status-char nil)
(file nil)