diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-07 03:04:01 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-07 03:04:01 +0000 |
| commit | 70b58c473e94f1f83aec422f9918068f4eeb75ad (patch) | |
| tree | 59e0270d8e99284d3e1e808ca8aaf88f95d45553 | |
| parent | ee2e9728e425bf4334f5383e94c974036a7fc853 (diff) | |
| download | emacs-70b58c473e94f1f83aec422f9918068f4eeb75ad.tar.gz | |
(vc-hg-dir-state, vc-hg-dir-status): Pass the dir
argument to vc-hg-command.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc-hg.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 095ef8e6783..c56108ca020 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 081e469d468..5d467a7018c 100644 --- a/lisp/vc-hg.el +++ b/lisp/vc-hg.el @@ -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) |