Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 12:27:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(gdb-display-buffer): Don't pop up GUD buffer.

Browse source 
Always split windows.
(gdb-speedbar-timer-fn): Only raise frame after user input.
(gdb-same-frame): Reverse initial value.
(gdb-display-gdb-buffer): Check for GUD buffer in other frames.
This commit is contained in:
Nick Roberts 2008-04-29 11:02:22 +00:00
parent 0715a53151
commit 05dfe89a80
1 changed files with 10 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/progmodes/gdb-ui.el
View file

@ -814,6 +814,8 @@ With arg, enter name of variable to be watched in the minibuffer."
(push 'gdb-speedbar-timer gdb-pending-triggers)))
(defun gdb-speedbar-timer-fn ()
(if gdb-speedbar-auto-raise
(raise-frame speedbar-frame))
(setq gdb-pending-triggers
(delq 'gdb-speedbar-timer gdb-pending-triggers))
(speedbar-timer-fn))
@ -1472,7 +1474,7 @@ directives."
(gdb-resync)
(error "Unexpected frame-begin annotation (%S)" sink)))))
(defcustom gdb-same-frame focus-follows-mouse
(defcustom gdb-same-frame (not focus-follows-mouse)
"Non-nil means pop up GUD buffer in same frame."
:group 'gdb
:type 'boolean
@ -3056,28 +3058,15 @@ another GDB command e.g pwd, to see new frames")
;;;; Window management
(defun gdb-display-buffer (buf dedicated &optional frame)
(let ((answer (get-buffer-window buf (or frame 0)))
(must-split nil))
(let ((answer (get-buffer-window buf (or frame 0))))
(if answer
(display-buffer buf nil (or frame 0)) ;Deiconify the frame if necessary.
(if (get-buffer-window gud-comint-buffer)
(select-window (get-buffer-window gud-comint-buffer))
;; If the buffer is not yet displayed, select the right frame.
(pop-to-buffer gud-comint-buffer))
(let ((window (get-lru-window)))
(if (and window
(not (memq window `(,(get-buffer-window gud-comint-buffer)
,gdb-source-window))))
(progn
(set-window-buffer window buf)
(setq answer window))
(setq must-split t)))
(if must-split
(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)))
(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)))
@ -3159,7 +3148,7 @@ another GDB command e.g pwd, to see new frames")
"Display GUD buffer."
(interactive)
(let ((same-window-regexps nil))
(pop-to-buffer gud-comint-buffer)))
(select-window (display-buffer gud-comint-buffer nil 0))))
(defun gdb-set-window-buffer (name)
(set-window-buffer (selected-window) (get-buffer name))