# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1223060669 0
# Node ID b3eefcc544306804cac950643d800ba492067979
# Parent  29005e3eddab36be7ae76499fad6bdd19b145ca3
(vc-hg-dir-status-files): New function.

diff -r 29005e3eddab -r b3eefcc54430 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Oct 03 18:43:29 2008 +0000
+++ b/lisp/ChangeLog	Fri Oct 03 19:04:29 2008 +0000
@@ -1,3 +1,7 @@
+2008-10-03  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-hg.el (vc-hg-dir-status-files): New function.
+
 2008-10-03  Martin Rudalics  <rudalics@gmx.at>
 
 	* window.el (window--display-buffer-1): Don't care about
diff -r 29005e3eddab -r b3eefcc54430 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Fri Oct 03 18:43:29 2008 +0000
+++ b/lisp/vc-hg.el	Fri Oct 03 19:04:29 2008 +0000
@@ -42,12 +42,15 @@
 ;; * registered (file)                         OK
 ;; * state (file)                              OK
 ;; - state-heuristic (file)                    NOT NEEDED
+;; - dir-status (dir update-function)          OK
+;; - dir-status-files (dir files ds uf)        OK
+;; - status-extra-headers (dir)                OK
+;; - status-printer (fileinfo)                 OK
 ;; * working-revision (file)                   OK
 ;; - latest-on-branch-p (file)                 ??
 ;; * checkout-model (files)                    OK
 ;; - workfile-unchanged-p (file)               OK
 ;; - mode-line-string (file)                   NOT NEEDED
-;; - prettify-state-info (file)                OK
 ;; STATE-CHANGING FUNCTIONS
 ;; * register (files &optional rev comment)    OK
 ;; * create-repo ()                            OK
@@ -499,6 +502,11 @@
   (vc-exec-after
    `(vc-hg-after-dir-status (quote ,update-function))))
 
+(defun vc-hg-dir-status-files (dir files default-state update-function)
+  (apply 'vc-hg-command (current-buffer) 'async dir "status" "-C" files)
+  (vc-exec-after
+   `(vc-hg-after-dir-status (quote ,update-function))))
+
 (defun vc-hg-status-extra-header (name &rest commands)
   (concat (propertize name 'face 'font-lock-type-face)
           (propertize