mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(gud-display-line): Find source buffer even when

Browse Source 
GUD buffer has it's own frame.
This commit is contained in:
Nick Roberts 2007-10-01 11:28:21 +00:00
parent 1042a066d0
commit 08aef629ba
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/progmodes/gud.el
View File

@ -2630,7 +2630,7 @@ It is saved for when this flag is not set.")
;; process-buffer is current-buffer ;; process-buffer is current-buffer
(unwind-protect (unwind-protect
(progn (progn
;; Write something in *compilation* and hack its mode line, ;; Write something in the GUD buffer and hack its mode line,
(set-buffer (process-buffer proc)) (set-buffer (process-buffer proc))
;; Fix the mode line. ;; Fix the mode line.
(setq mode-line-process (setq mode-line-process
@ -2686,11 +2686,14 @@ Obeying it means displaying in another window the specified file and line."
(buffer (buffer
(with-current-buffer gud-comint-buffer (with-current-buffer gud-comint-buffer
(gud-find-file true-file))) (gud-find-file true-file)))
(window (and buffer (or (get-buffer-window buffer) (window (and buffer
(if (memq gud-minor-mode '(gdbmi gdba)) (or (get-buffer-window buffer)
(unless (gdb-display-source-buffer buffer) (if (memq gud-minor-mode '(gdbmi gdba))
(gdb-display-buffer buffer nil))) (or (if (get-buffer-window buffer 0)
(display-buffer buffer)))) (display-buffer buffer nil 0))
(unless (gdb-display-source-buffer buffer)
(gdb-display-buffer buffer nil))))
(display-buffer buffer))))
(pos)) (pos))
(if buffer (if buffer
(progn (progn