From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Sat, 20 Oct 2007 16:34:44 +0000 (+0000)
Subject: Condition out a misleading message.
X-Git-Tag: emacs-pretest-23.0.90~10187
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0752dd75b757ee2baab69798398af086359a74c;p=emacs.git

Condition out a misleading message.
---

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