Mercurial > emacs
changeset 15199:c595cb576143
(gud-filter): Cal gud-display-frame even if process-window is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 10 May 1996 02:41:59 +0000 |
| parents | fd47674bb3a7 |
| children | aa5b4cd52df8 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Thu May 09 23:42:08 1996 +0000 +++ b/lisp/gud.el Fri May 10 02:41:59 1996 +0000 @@ -1257,12 +1257,19 @@ (comint-output-filter proc output))) ;; Put the arrow on the source line. - :; This must be outside of the save-excursion + ;; This must be outside of the save-excursion ;; in case the source file is our current buffer. (if process-window (save-selected-window (select-window process-window) - (gud-display-frame))) + (gud-display-frame)) + ;; We have to be in the proper buffer, (process-buffer proc), + ;; but not in a save-excursion, because that would restore point. + (let ((old-buf (current-buffer))) + (set-buffer (process-buffer proc)) + (unwind-protect + (gud-display-frame) + (set-buffer old-buf)))) ;; If we deferred text that arrived during this processing, ;; handle it now.