From 531f52fd696b3f8251da7422d66114e704e87467 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <ambrevar@gmail.com>
Date: Sat, 6 May 2017 01:08:06 +0530
Subject: [PATCH] Emacs: Fix IO buffer in GDB

---
 .emacs.d/lisp/mode-gud.el | 26 ++++++++++----------------
 1 file changed, 10 insertions(+), 16 deletions(-)

diff --git a/.emacs.d/lisp/mode-gud.el b/.emacs.d/lisp/mode-gud.el
index 7be645ef..0017b76b 100644
--- a/.emacs.d/lisp/mode-gud.el
+++ b/.emacs.d/lisp/mode-gud.el
@@ -1,12 +1,12 @@
 ;; GUD
 
 ;; Set GUD to display many windows by default.
-;; (setq gdb-show-main t)
 (setq gdb-many-windows t)
 
 ;; Change GUD many-windows layout.
 (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))
   (gdb-display-locals-buffer)
   (delete-other-windows)
@@ -15,11 +15,6 @@
   (gdb-display-breakpoints-buffer)
   (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
    (if gud-last-last-frame
        (gud-find-file (car gud-last-last-frame))
@@ -30,18 +25,17 @@
 
   (split-window-horizontally)
   (other-window 1)
-  (split-window nil ( / ( * (window-height) 3) 4))
-  (split-window nil ( / (window-height) 3))
+  (split-window nil (/ ( * (window-height) 3) 4))
+  (split-window nil (/ (window-height) 3))
   (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)
   (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)
   (gdb-set-window-buffer (gdb-stack-buffer-name))
   (split-window-horizontally)