summaryrefslogtreecommitdiff
path: root/lisp/progmodes/gdb-ui.el
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2008-07-05 09:35:01 +0000
committerNick Roberts <nickrob@snap.net.nz>2008-07-05 09:35:01 +0000
commit95741663a9ee4bdedd5aff161b8b73ea152ba4f7 (patch)
tree504c871617d3949177fcad729d4f66d43115fed7 /lisp/progmodes/gdb-ui.el
parentaef2da5c89fe0e494e244ba057e674233752f454 (diff)
downloademacs-95741663a9ee4bdedd5aff161b8b73ea152ba4f7.tar.gz
(gdb-display-buffer): Don't split a buffer
if it's not part of gdb-ui, e.g, at start.
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
-rw-r--r--lisp/progmodes/gdb-ui.el16
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 7f49679641c..1b9ed9ad7e0 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -3084,12 +3084,16 @@ another GDB command e.g pwd, to see new frames")
(if answer
(display-buffer buf nil (or frame 0)) ;Deiconify the frame if necessary.
(let ((window (get-lru-window)))
- (let* ((largest (get-largest-window))
- (cur-size (window-height largest)))
- (setq answer (split-window largest))
- (set-window-buffer answer buf)
- (set-window-dedicated-p answer dedicated)))
- answer)))
+ (if (memq (buffer-local-value 'gud-minor-mode (window-buffer window))
+ '(gdba gdbmi))
+ (let* ((largest (get-largest-window))
+ (cur-size (window-height largest)))
+ (setq answer (split-window largest))
+ (set-window-buffer answer buf)
+ (set-window-dedicated-p answer dedicated)
+ answer)
+ (set-window-buffer window buf)
+ window)))))
;;; Shared keymap initialization: