Mercurial > emacs
changeset 20296:0b41c3dab3a7
(gud-sentinel): Set mode-line-process in the process
buffer, not the current buffer.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 21 Nov 1997 10:34:10 +0000 |
| parents | 27ae44142cfd |
| children | bf0a54297d95 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)