4 |
;; Maintainer: FSF |
;; Maintainer: FSF |
5 |
;; Keywords: unix, tools |
;; Keywords: unix, tools |
6 |
|
|
7 |
;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04 Free Software Foundation, Inc. |
;; Copyright (C) 1992,93,94,95,96,1998,2000,02,03,04,05 Free Software Foundation, Inc. |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
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 |
|
(progn |
|
2537 |
(with-selected-window process-window |
(with-selected-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 |
(with-current-buffer (process-buffer proc) |
(with-current-buffer (process-buffer proc) |