# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1199675256 0
# Node ID a566e6f181dc9d8455eb5b040b1d860dc96e699f
# Parent  73661ddc7ac7b1099854a798614d9359c51ac55b
(vc-hg-dir-state): Pass the dir argument to
vc-hg-command.

diff -r 73661ddc7ac7 -r a566e6f181dc lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 07 02:45:14 2008 +0000
+++ b/lisp/ChangeLog	Mon Jan 07 03:07:36 2008 +0000
@@ -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 -r 73661ddc7ac7 -r a566e6f181dc lisp/vc-hg.el
--- a/lisp/vc-hg.el	Mon Jan 07 02:45:14 2008 +0000
+++ b/lisp/vc-hg.el	Mon Jan 07 03:07:36 2008 +0000
@@ -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))