From 1a3ce5c4663378934ba7fa43444da7b6d7b7836f Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 21 Nov 1997 10:34:10 +0000 Subject: [PATCH] (gud-sentinel): Set mode-line-process in the process buffer, not the current buffer. --- lisp/gud.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/gud.el b/lisp/gud.el index 0509ae60ff2..cce7f123a69 100644 --- 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)