# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 880108450 0
# Node ID 0b41c3dab3a7fac9904e144b0d05a4ede019f62f
# Parent  27ae44142cfd772efa69e065df7890f97d8a8c08
(gud-sentinel): Set mode-line-process in the process
buffer, not the current buffer.

diff -r 27ae44142cfd -r 0b41c3dab3a7 lisp/gud.el
--- a/lisp/gud.el	Thu Nov 20 22:14:40 1997 +0000
+++ b/lisp/gud.el	Fri Nov 21 10:34:10 1997 +0000
@@ -1380,10 +1380,6 @@
 	((memq (process-status proc) '(signal exit))
 	 ;; Stop displaying an arrow in a source file.
 	 (setq overlay-arrow-position nil)
-	 ;; Fix the mode line.
-	 (setq mode-line-process
-	       (concat ":"
-		       (symbol-name (process-status proc))))
 	 (let* ((obuf (current-buffer)))
 	   ;; save-excursion isn't the right thing if
 	   ;;  process-buffer is current-buffer
@@ -1391,6 +1387,10 @@
 	       (progn
 		 ;; Write something in *compilation* and hack its mode line,
 		 (set-buffer (process-buffer proc))
+		 ;; Fix the mode line.
+		 (setq mode-line-process
+		       (concat ":"
+			       (symbol-name (process-status proc))))
 		 (force-mode-line-update)
 		 (if (eobp)
 		     (insert ?\n mode-name " " msg)