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

argument to vc-hg-command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 095ef8e67831f25fd70833323fd9d2dea5c1624e..c56108ca0207a9fc47c627c3a253831172c602ce 100644 (file)
--- 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 081e469d4683cd39b19fe378453cf1daa1f1892a..5d467a7018cfaafdc9c621868c4fd3ea9edb033b 100644 (file)
--- 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)