(gud-sentinel): Set mode-line-process in the process

buffer, not the current buffer.

diff --git a/lisp/gud.el b/lisp/gud.el
index 0509ae60ff26c269359077e74fa32bbaf7bb67d2..cce7f123a69bd562dcca3c7e1628510f5463b5a2 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1380,10 +1380,6 @@ It is saved for when this flag is not set.")
        ((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 @@ It is saved for when this flag is not set.")
               (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)