diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2008-07-05 09:35:01 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2008-07-05 09:35:01 +0000 |
commit | 95741663a9ee4bdedd5aff161b8b73ea152ba4f7 (patch) | |
tree | 504c871617d3949177fcad729d4f66d43115fed7 /lisp/progmodes/gdb-ui.el | |
parent | aef2da5c89fe0e494e244ba057e674233752f454 (diff) | |
download | emacs-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.el | 16 |
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: |