diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2006-07-13 21:57:05 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2006-07-13 21:57:05 +0000 |
| commit | 8d39ce5e923ba01ca42770e8d83297a7033fad9d (patch) | |
| tree | b2bc2fd1a75bd0eed3cd041178c4533fd4585374 /lisp | |
| parent | d138996e007e5b2ba7fc6a84c1a4f01bba9162b9 (diff) | |
| download | emacs-8d39ce5e923ba01ca42770e8d83297a7033fad9d.tar.gz | |
(gud-display-line): Use gdb-display-buffer. Set gdb-source-window.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/gud.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index c57c88d3ece..97e54135a6f 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -2763,7 +2763,8 @@ Obeying it means displaying in another window the specified file and line." (gud-find-file true-file))) (window (and buffer (or (get-buffer-window buffer) (if (memq gud-minor-mode '(gdbmi gdba)) - (gdb-display-source-buffer buffer)) + (unless (gdb-display-source-buffer buffer) + (gdb-display-buffer buffer nil))) (display-buffer buffer)))) (pos)) (if buffer @@ -2793,7 +2794,10 @@ Obeying it means displaying in another window the specified file and line." (cond ((or (< pos (point-min)) (> pos (point-max))) (widen) (goto-char pos)))) - (if window (set-window-point window gud-overlay-arrow-position)))))) + (when window + (set-window-point window gud-overlay-arrow-position) + (if (memq gud-minor-mode '(gdbmi gdba)) + (setq gdb-source-window window))))))) ;; The gud-call function must do the right thing whether its invoking ;; keystroke is from the GUD buffer itself (via major-mode binding) |