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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b56a5d1f512bfc84ddeb4e22248faf8c5ee818ae..ff2755df630e7d190b93e6c0dc6d2c597787507b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-12  Oleh Krehel  <ohwoeowho@gmail.com>
+
+       * 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  <fgallina@gnu.org>
 
        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 27846ede332d2e4f107f78b6a3d41bf40dacb306..486d67297a9cd6fc36b268d2bb5b13ffd402e6fa 100644 (file)
--- 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)))