# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1207812880 0
# Node ID 139a888c864960759e3eddacbe27d36f2ea389a6
# Parent  bfc762f0b49c8d839cd6a0bfd3a67a4a566fda57
(vc-hg-dir-status): Remove unneeded call.

diff -r bfc762f0b49c -r 139a888c8649 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 10 07:32:25 2008 +0000
+++ b/lisp/ChangeLog	Thu Apr 10 07:34:40 2008 +0000
@@ -20,6 +20,8 @@
 	* vc-svn.el (vc-svn-after-dir-status, vc-svn-parse-status):
 	Detect the conflict state.
 
+	* vc-hg.el (vc-hg-dir-status): Remove unneeded call.
+
 2008-04-10  Glenn Morris  <rgm@gnu.org>
 
 	* Makefile.in (MH_E_DIR): New variable.
diff -r bfc762f0b49c -r 139a888c8649 lisp/vc-hg.el
--- a/lisp/vc-hg.el	Thu Apr 10 07:32:25 2008 +0000
+++ b/lisp/vc-hg.el	Thu Apr 10 07:34:40 2008 +0000
@@ -487,7 +487,7 @@
 		       (?! . missing)
 		       (?? . unregistered)))
 	(translated nil)
-	  (result nil))
+	(result nil))
       (goto-char (point-min))
       (while (not (eobp))
 	(setq status-char (char-after))
@@ -502,8 +502,6 @@
 
 ;; XXX Experimental function for the vc-dired replacement.
 (defun vc-hg-dir-status (dir update-function status-buffer)
-  "Return a list of conses (file . state) for DIR."
-  (erase-buffer)
   (vc-hg-command (current-buffer) 'async dir "status")
   (vc-exec-after
    `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer)))