Commit 3e215e30 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(gud-filter): Simplify using with-selected-window and with-current-buffer.

parent 38c3526f
......@@ -2534,16 +2534,12 @@ It is saved for when this flag is not set.")
;; 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)
(with-selected-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)))))
(with-current-buffer (process-buffer proc)
(gud-display-frame))))
;; If we deferred text that arrived during this processing,
;; handle it now.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment