diff options
| author | Nick Roberts | 2008-07-05 09:35:01 +0000 |
|---|---|---|
| committer | Nick Roberts | 2008-07-05 09:35:01 +0000 |
| commit | 95741663a9ee4bdedd5aff161b8b73ea152ba4f7 (patch) | |
| tree | 504c871617d3949177fcad729d4f66d43115fed7 | |
| parent | aef2da5c89fe0e494e244ba057e674233752f454 (diff) | |
| download | emacs-95741663a9ee4bdedd5aff161b8b73ea152ba4f7.tar.gz emacs-95741663a9ee4bdedd5aff161b8b73ea152ba4f7.zip | |
(gdb-display-buffer): Don't split a buffer
if it's not part of gdb-ui, e.g, at start.
| -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") | |||
| 3084 | (if answer | 3084 | (if answer |
| 3085 | (display-buffer buf nil (or frame 0)) ;Deiconify the frame if necessary. | 3085 | (display-buffer buf nil (or frame 0)) ;Deiconify the frame if necessary. |
| 3086 | (let ((window (get-lru-window))) | 3086 | (let ((window (get-lru-window))) |
| 3087 | (let* ((largest (get-largest-window)) | 3087 | (if (memq (buffer-local-value 'gud-minor-mode (window-buffer window)) |
| 3088 | (cur-size (window-height largest))) | 3088 | '(gdba gdbmi)) |
| 3089 | (setq answer (split-window largest)) | 3089 | (let* ((largest (get-largest-window)) |
| 3090 | (set-window-buffer answer buf) | 3090 | (cur-size (window-height largest))) |
| 3091 | (set-window-dedicated-p answer dedicated))) | 3091 | (setq answer (split-window largest)) |
| 3092 | answer))) | 3092 | (set-window-buffer answer buf) |
| 3093 | (set-window-dedicated-p answer dedicated) | ||
| 3094 | answer) | ||
| 3095 | (set-window-buffer window buf) | ||
| 3096 | window))))) | ||
| 3093 | 3097 | ||
| 3094 | 3098 | ||
| 3095 | ;;; Shared keymap initialization: | 3099 | ;;; Shared keymap initialization: |