Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 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 | 7830512d2616 |
| children | 5e647deae824 |
comparison
equal
deleted
inserted
replaced
| 96513:1411a65023df | 96514:cd65c90908c4 |
|---|---|
| 3082 (defun gdb-display-buffer (buf dedicated &optional frame) | 3082 (defun gdb-display-buffer (buf dedicated &optional frame) |
| 3083 (let ((answer (get-buffer-window buf (or frame 0)))) | 3083 (let ((answer (get-buffer-window buf (or frame 0)))) |
| 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: |
| 3096 | 3100 |
| 3097 (let ((menu (make-sparse-keymap "GDB-Windows"))) | 3101 (let ((menu (make-sparse-keymap "GDB-Windows"))) |