From e0752dd75b757ee2baab69798398af086359a74c Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Sat, 20 Oct 2007 16:34:44 +0000 Subject: [PATCH] Condition out a misleading message. --- lisp/ChangeLog | 5 +++++ lisp/vc.el | 5 +++-- 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 + + * vc.el (vc-do-command): Condition out a misleading message when + running asynchronously. + 2007-10-20 Jay Belanger * 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 -- 2.39.2