2534 |
;; This must be outside of the save-excursion |
;; This must be outside of the save-excursion |
2535 |
;; in case the source file is our current buffer. |
;; in case the source file is our current buffer. |
2536 |
(if process-window |
(if process-window |
2537 |
(save-selected-window |
(with-selected-window |
|
(select-window process-window) |
|
2538 |
(gud-display-frame)) |
(gud-display-frame)) |
2539 |
;; We have to be in the proper buffer, (process-buffer proc), |
;; We have to be in the proper buffer, (process-buffer proc), |
2540 |
;; but not in a save-excursion, because that would restore point. |
;; but not in a save-excursion, because that would restore point. |
2541 |
(let ((old-buf (current-buffer))) |
(with-current-buffer (process-buffer proc) |
2542 |
(set-buffer (process-buffer proc)) |
(gud-display-frame)))) |
|
(unwind-protect |
|
|
(gud-display-frame) |
|
|
(set-buffer old-buf))))) |
|
2543 |
|
|
2544 |
;; If we deferred text that arrived during this processing, |
;; If we deferred text that arrived during this processing, |
2545 |
;; handle it now. |
;; handle it now. |