(vc-hg-dir-state): Pass the dir argument to

vc-hg-command.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a67b82e6cd7..f98b68709fa 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): Pass the dir argument to
+        vc-hg-command.
+
 2008-01-07  Glenn Morris  <rgm@gnu.org>
 
         * calc/calc-help.el (calc-full-help): Use emacs-copyright.
diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index c97a07220be..ac4f333f749 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -170,7 +170,7 @@
 
 (defun vc-hg-dir-state (dir)
   (with-temp-buffer
-    (vc-hg-command (current-buffer) nil nil "status")
+    (vc-hg-command (current-buffer) nil dir "status")
     (goto-char (point-min))
     (let ((status-char nil)
           (file nil))