From 88f8414db602cf38229f12c394afc458fdf69378 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Sep 1993 19:12:52 +0000
Subject: [PATCH] Signal modeline events appropriately for changes to a
 process's status.  This guarantees that the modeline is updated correctly
 when the events occur.

---
 v7/src/edwin/process.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 716ce3c4e..528c452e6 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.30 1993/08/02 03:06:36 cph Exp $
+;;;	$Id: process.scm,v 1.31 1993/09/10 19:12:52 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-93 Massachusetts Institute of Technology
 ;;;
@@ -185,6 +185,7 @@ Initialized from the SHELL environment variable."
 	   (update-process-mark! process)
 	   (subprocess-put! subprocess 'EDWIN-PROCESS process)
 	   (set! edwin-processes (cons process edwin-processes))
+	   (buffer-modeline-event! buffer 'PROCESS-STATUS)
 	   process))))))
 
 (define (start-subprocess filename arguments environment pty?)
@@ -203,6 +204,9 @@ Initialized from the SHELL environment variable."
 	     (subprocess-kill subprocess)
 	     (%perform-status-notification process 'SIGNALLED false)))
        (deregister-process-input process)
+       (let ((buffer (process-buffer process)))
+	 (if (buffer-alive? buffer)
+	     (buffer-modeline-event! buffer 'PROCESS-STATUS)))
        (subprocess-delete subprocess)))))
 
 (define (deregister-process-input process)
-- 
2.25.1