(vc-hg-dir-status): Remove unneeded call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09ed403359493f64266fc91b8ad59649375e5f44..a7aeb66804131a2692dc69bb2af39f164c77090b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 8be1be82eec35e990bb7b172f6a0c0be55697df3..2a65691cb9df559d9cae35cccfbb010734912ce3 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -487,7 +487,7 @@ REV is the revision to check out into WORKFILE."
                       (?! . missing)
                       (?? . unregistered)))
        (translated nil)
-         (result nil))
+       (result nil))
       (goto-char (point-min))
       (while (not (eobp))
        (setq status-char (char-after))
@@ -502,8 +502,6 @@ REV is the revision to check out into WORKFILE."
 
 ;; 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)))