From: Richard M. Stallman Date: Wed, 11 Oct 1995 17:20:35 +0000 (+0000) Subject: (gud-filter): Move the gud-display-frame call X-Git-Tag: emacs-19.34~2670 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f4bda7c96b4dda235d8425e219be78ae17236d5;p=emacs.git (gud-filter): Move the gud-display-frame call outside of the save-excursion. New var process-window controls which window to do it in. --- diff --git a/lisp/gud.el b/lisp/gud.el index 787d7e74bc2..17ff347949c 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1188,7 +1188,7 @@ It is saved for when this flag is not set.") (defun gud-filter (proc string) ;; Here's where the actual buffer insertion is done - (let (output) + (let (output process-window) (if (buffer-name (process-buffer proc)) (if gud-filter-defer-flag ;; If we can't process any text now, @@ -1216,17 +1216,23 @@ It is saved for when this flag is not set.") ;; Don't display the specified file ;; unless (1) point is at or after the position where output appears ;; and (2) this buffer is on the screen. - (if (and gud-last-frame - (>= (point) (process-mark proc)) - (get-buffer-window (current-buffer))) - (gud-display-frame)) - ;; Let the comint filter do the actual insertion. - ;; That lets us inherit various comint features. - (comint-output-filter proc output)) - ;; If we deferred text that arrived during this processing, - ;; handle it now. - (if gud-filter-pending-text - (gud-filter proc ""))))))) + (setq process-window + (and gud-last-frame + (>= (point) (process-mark proc)) + (get-buffer-window (current-buffer)))))) + (if process-window + (save-selected-window + (select-window process-window) + (gud-display-frame))) + + ;; Let the comint filter do the actual insertion. + ;; That lets us inherit various comint features. + (comint-output-filter proc output) + + ;; If we deferred text that arrived during this processing, + ;; handle it now. + (if gud-filter-pending-text + (gud-filter proc "")))))) (defun gud-sentinel (proc msg) (cond ((null (buffer-name (process-buffer proc)))