Condition out a misleading message.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe88e6604b1..1636bdba6a3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-20  Eric S. Raymond  <esr@snark.thyrsus.com>
+
+        * vc.el (vc-do-command): Condition out a misleading message when
+        running asynchronously.
+
 2007-10-20  Jay Belanger  <jay.p.belanger@gmail.com>
 
         * calc/README: Add recent news.
diff --git a/lisp/vc.el b/lisp/vc.el
index 09898aa98c1..36df6d1f5c3 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1070,8 +1070,9 @@ that is inserted into the command line before the filename."
               (shrink-window-if-larger-than-buffer)
               (error "Running %s...FAILED (%s)" full-command
                      (if (integerp status) (format "status %d" status) status))))
-          ;; We're done
-          (if vc-command-messages
+          ;; We're done.  But don't emit a status message if running
+          ;; asychronously, it would just mislead.
+          (if (and vc-command-messages (not (eq okstatus 'async)))
               (message "Running %s...OK = %d" full-command status)))
         (vc-exec-after
          `(run-hook-with-args 'vc-post-command-functions