* lisp/vc/vc-dispatcher.el (vc-do-command): Get rid of default sentinel msg.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc409171fb2..97ee66dcc01 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * vc/vc-dispatcher.el (vc-do-command): Get rid of default sentinel msg.
+
 2013-04-19  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
         New faster Imenu implementation (bug#14058).
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index b03619e03d9..ed61adec1fe 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -329,7 +329,9 @@ case, and the process object in the asynchronous case."
                               command squeezed))))
                 (when vc-command-messages
                   (message "Running %s in background..." full-command))
-                ;;(set-process-sentinel proc (lambda (p msg) (delete-process p)))
+                ;; Get rid of the default message insertion, in case we don't
+                ;; set a sentinel explicitly.
+                (set-process-sentinel proc #'ignore)
                 (set-process-filter proc 'vc-process-filter)
                 (setq status proc)
                 (when vc-command-messages