From 70b58c473e94f1f83aec422f9918068f4eeb75ad Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 7 Jan 2008 03:04:01 +0000 Subject: [PATCH] (vc-hg-dir-state, vc-hg-dir-status): Pass the dir argument to vc-hg-command. --- lisp/ChangeLog | 5 +++++ 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 + + * vc-hg.el (vc-hg-dir-state, vc-hg-dir-status): Pass the dir + argument to vc-hg-command. + 2008-01-06 Stefan Monnier * 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) -- 2.39.2