diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-06-12 05:59:33 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-06-12 05:59:33 +0000 |
commit | 8541213fac80ac8fd8ce86afdc30fb3f21e8746c (patch) | |
tree | 27926133fd3c5486ba8a2bbc51db190cbb5a729e | |
parent | d5a4b6453128848c7e269626acc03af1588c2b12 (diff) | |
download | emacs-8541213fac80ac8fd8ce86afdc30fb3f21e8746c.tar.gz |
(gud-filter): extend scope of binding of gud-filter-defer-flag.
-rw-r--r-- | lisp/gud.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 9ccd06b4639..2f85014a118 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -2136,22 +2136,22 @@ It is saved for when this flag is not set.") ;; Let the comint filter do the actual insertion. ;; That lets us inherit various comint features. - (comint-output-filter proc output))) - - ;; Put the arrow on the source line. - ;; 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)) - ;; 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)))) + (comint-output-filter proc output)) + + ;; Put the arrow on the source line. + ;; 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)) + ;; 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. |