Emacs: Fix IO buffer in GDB
parent
3d41480297
commit
531f52fd69
|
@ -1,12 +1,12 @@
|
||||||
;; GUD
|
;; GUD
|
||||||
|
|
||||||
;; Set GUD to display many windows by default.
|
;; Set GUD to display many windows by default.
|
||||||
;; (setq gdb-show-main t)
|
|
||||||
(setq gdb-many-windows t)
|
(setq gdb-many-windows t)
|
||||||
|
|
||||||
;; Change GUD many-windows layout.
|
;; Change GUD many-windows layout.
|
||||||
(defun gdb-setup-windows ()
|
(defun gdb-setup-windows ()
|
||||||
"Layout the window pattern for `gdb-many-windows'."
|
"Layout the window pattern for `gdb-many-windows'.
|
||||||
|
Do not set `gdb-show-main' to true as we handle it manually here."
|
||||||
(setq gdb-source-window (selected-window))
|
(setq gdb-source-window (selected-window))
|
||||||
(gdb-display-locals-buffer)
|
(gdb-display-locals-buffer)
|
||||||
(delete-other-windows)
|
(delete-other-windows)
|
||||||
|
@ -15,11 +15,6 @@
|
||||||
(gdb-display-breakpoints-buffer)
|
(gdb-display-breakpoints-buffer)
|
||||||
(delete-other-windows)
|
(delete-other-windows)
|
||||||
|
|
||||||
;; TODO: this does not behave the same on Emacs 23 and 24.
|
|
||||||
;; This may be needed for gud/pdb.
|
|
||||||
;; (defadvice pop-to-buffer (before cancel-other-window first)
|
|
||||||
;; (ad-set-arg 1 nil))
|
|
||||||
;; (ad-activate 'pop-to-buffer)
|
|
||||||
(switch-to-buffer
|
(switch-to-buffer
|
||||||
(if gud-last-last-frame
|
(if gud-last-last-frame
|
||||||
(gud-find-file (car gud-last-last-frame))
|
(gud-find-file (car gud-last-last-frame))
|
||||||
|
@ -30,18 +25,17 @@
|
||||||
|
|
||||||
(split-window-horizontally)
|
(split-window-horizontally)
|
||||||
(other-window 1)
|
(other-window 1)
|
||||||
(split-window nil ( / ( * (window-height) 3) 4))
|
(split-window nil (/ ( * (window-height) 3) 4))
|
||||||
(split-window nil ( / (window-height) 3))
|
(split-window nil (/ (window-height) 3))
|
||||||
(gdb-set-window-buffer (gdb-locals-buffer-name))
|
(gdb-set-window-buffer (gdb-locals-buffer-name))
|
||||||
|
|
||||||
|
(split-window-horizontally)
|
||||||
|
(other-window 1)
|
||||||
|
(gdb-set-window-buffer
|
||||||
|
(gdb-get-buffer-create 'gdb-inferior-io)))
|
||||||
|
|
||||||
(other-window 1)
|
(other-window 1)
|
||||||
(gdb-set-window-buffer gud-comint-buffer)
|
(gdb-set-window-buffer gud-comint-buffer)
|
||||||
(when (and
|
|
||||||
(boundp 'gdb-use-separate-io-buffer)
|
|
||||||
gdb-use-separate-io-buffer)
|
|
||||||
(split-window-horizontally)
|
|
||||||
(other-window 1)
|
|
||||||
(gdb-set-window-buffer
|
|
||||||
(gdb-get-buffer-create 'gdb-inferior-io)))
|
|
||||||
(other-window 1)
|
(other-window 1)
|
||||||
(gdb-set-window-buffer (gdb-stack-buffer-name))
|
(gdb-set-window-buffer (gdb-stack-buffer-name))
|
||||||
(split-window-horizontally)
|
(split-window-horizontally)
|
||||||
|
|
Loading…
Reference in New Issue