From 7d3541789341856c6be840b9d94317a873c27410 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 10 Apr 2008 07:34:40 +0000 Subject: [PATCH] (vc-hg-dir-status): Remove unneeded call. --- lisp/ChangeLog | 2 ++ lisp/vc-hg.el | 4 +--- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09ed4033594..a7aeb668041 100644 --- 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 * Makefile.in (MH_E_DIR): New variable. diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el index 8be1be82eec..2a65691cb9d 100644 --- 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))) -- 2.39.5