Condition out a misleading message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe88e6604b19893b38d8e45620df5c3ee7226faa..1636bdba6a39b67cbc63382f6d14012e7ea2a753 100644 (file)
--- 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 09898aa98c1ea27a938984f185ffa9c901392802..36df6d1f5c31d7bfd38ef6dc6e5b156aaf3072eb 100644 (file)
--- 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