(gud-filter): extend scope of binding of gud-filter-defer-flag.

diff --git a/lisp/gud.el b/lisp/gud.el
index 9ccd06b4639988e6bd3825a39c409d480083958e..2f85014a11845c5dacad43e10318ae0ad43a9689 100644 (file)
--- 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.