[Emacs-diffs] master e39d96e: gdb-mi.el (gdb-display-io-nopopup): New defcustom.

[Oleh Krehel]

branch: master
commit e39d96ebe4c342885433afc28232197ce398fe71
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    gdb-mi.el (gdb-display-io-nopopup): New defcustom.
    
    * lisp/progmodes/gdb-mi.el (gdb-inferior-filter): Don't pop up the
    buried output buffer when `gdb-display-io-nopopup' is non-nil.
---
 lisp/ChangeLog           |    6 ++++++
 lisp/progmodes/gdb-mi.el |   12 +++++++++++-
 2 files changed, 17 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b56a5d1..ff2755d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-12  Oleh Krehel  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-display-io-nopopup): New defcustom.
+       (gdb-inferior-filter): Don't pop up the buried output buffer when
+       `gdb-display-io-nopopup' is non-nil.
+
 2015-02-12  Fabián Ezequiel Gallina  <address@hidden>
 
        python.el: Allow killing shell buffer if process is dead.  (Bug#19823)
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 27846ed..486d672 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -1629,9 +1629,19 @@ this trigger is subscribed to `gdb-buf-publisher' and 
called with
   :syntax-table nil :abbrev-table nil
   (make-comint-in-buffer "gdb-inferior" (current-buffer) nil))
 
+(defcustom gdb-display-io-nopopup nil
+  "When non-nil, and the 'gdb-inferior-io buffer is buried, don't pop it up."
+  :type 'boolean
+  :group 'gdb
+  :version "25.1")
+
 (defun gdb-inferior-filter (proc string)
   (unless (string-equal string "")
-    (gdb-display-buffer (gdb-get-buffer-create 'gdb-inferior-io)))
+    (let (buf)
+      (unless (and gdb-display-io-nopopup
+                   (setq buf (gdb-get-buffer 'gdb-inferior-io))
+                   (null (get-buffer-window buf)))
+        (gdb-display-buffer (gdb-get-buffer-create 'gdb-inferior-io)))))
   (with-current-buffer (gdb-get-buffer-create 'gdb-inferior-io)
     (comint-output-filter proc string)))