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

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.