[Emacs-diffs] /srv/bzr/emacs/trunk r112329: * lisp/vc/vc-dispatcher.el (vc-do-command): Get rid of default sentinel msg.

[Stefan Monnier]

------------------------------------------------------------
revno: 112329
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-04-19 00:09:08 -0400
message:
  * lisp/vc/vc-dispatcher.el (vc-do-command): Get rid of default sentinel msg.
modified:
  lisp/ChangeLog
  lisp/vc/vc-dispatcher.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-19 02:31:09 +0000
+++ b/lisp/ChangeLog    2013-04-19 04:09:08 +0000
@@ -1,3 +1,7 @@
+2013-04-19  Stefan Monnier  <address@hidden>
+
+       * vc/vc-dispatcher.el (vc-do-command): Get rid of default sentinel msg.
+
 2013-04-19  Fabián Ezequiel Gallina  <address@hidden>
 
        New faster Imenu implementation (bug#14058).

=== modified file 'lisp/vc/vc-dispatcher.el'
--- a/lisp/vc/vc-dispatcher.el  2013-01-01 09:11:05 +0000
+++ b/lisp/vc/vc-dispatcher.el  2013-04-19 04:09:08 +0000
@@ -329,7 +329,9 @@
                               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