/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by nickrob, Fri Jun 24 01:31:50 2005 UTC revision 1.44 by rms, Sat Jun 25 13:52:15 2005 UTC
# Line 2534  It is saved for when this flag is not se Line 2534  It is saved for when this flag is not se
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.

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26