From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 19 Apr 2013 04:09:08 +0000 (-0400)
Subject: * lisp/vc/vc-dispatcher.el (vc-do-command): Get rid of default sentinel msg.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31dcede0c7fc852d6f05bda476a99bb37661371b;p=emacs.git

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

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