Mercurial > emacs
changeset 96514:cd65c90908c4
(gdb-display-buffer): Don't split a buffer
if it's not part of gdb-ui, e.g, at start.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 05 Jul 2008 09:35:01 +0000 |
| parents | 1411a65023df |
| children | ca675825c4ef |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Sat Jul 05 09:33:35 2008 +0000 +++ b/lisp/progmodes/gdb-ui.el Sat Jul 05 09:35:01 2008 +0000 @@ -3084,12 +3084,16 @@ (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: