mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

gdb-mi.el (gdb-display-io-nopopup): New defcustom.

Browse Source 
* lisp/progmodes/gdb-mi.el (gdb-inferior-filter): Don't pop up the
buried output buffer when `gdb-display-io-nopopup' is non-nil.
This commit is contained in:
Oleh Krehel 2015-02-12 11:22:16 +01:00
parent c7d9dec837
commit e39d96ebe4
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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)

12
lisp/progmodes/gdb-mi.el
View File

@ -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)))