From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 16 Sep 2023 10:41:07 +0000 (+0300)
Subject: ; Fix last change in gdb-mi.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f44c1969b6fae3651ca6cc5e077e5f6430a6b57b;p=emacs.git

; Fix last change in gdb-mi.el

* lisp/progmodes/gdb-mi.el (gdb-display-io-buffer): Move to before
the first use.  Doc fix.  Change the group to 'gdb-buffers'.

* etc/NEWS: Announce the new option.  (Bug#65007)
---

diff --git a/etc/NEWS b/etc/NEWS
index c618f3dafa6..5522217bb4d 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -243,8 +243,9 @@ functions in CJK locales.
 
 * Changes in Specialized Modes and Packages in Emacs 30.1
 
+** gdb-mi
 ---
-** Variable order and truncation can now be configured in 'gdb-many-windows'.
+*** Variable order and truncation can now be configured in 'gdb-many-windows'.
 The new user option 'gdb-locals-table-row-config' allows users to
 configure the order and max length of various properties in the local
 variables buffer when using 'gdb-many-windows'.
@@ -259,6 +260,13 @@ If you want to get back the old behavior, set the user option to the value
     (setopt gdb-locals-table-row-config
             `((type . 0) (name . 0) (value . ,gdb-locals-value-limit)))
 
+---
+*** New user option 'gdb-display-io-buffer'.
+If this is nil, "M-x gdb" will neither create nor display a separate
+buffer for the I/O of the program being debugged, but will instead
+redirect the program's interaction to the GDB execution buffer.  The
+default is t, to preserve previous behavior.
+
 ** Grep
 
 *** New user option 'grep-use-headings'.
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 8ce5df6e0c7..bc0070d2630 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -716,6 +716,13 @@ that GDB starts to reuse existing source windows."
   :group 'gdb
   :version "28.1")
 
+(defcustom gdb-display-io-buffer t
+  "When non-nil, display the separate `gdb-inferior-io' buffer.
+Otherwise, send program output to the GDB buffer."
+  :type 'boolean
+  :group 'gdb-buffers
+  :version "30.1")
+
 (defvar gdbmi-debug-mode nil
   "When non-nil, print the messages sent/received from GDB/MI in *Messages*.")
 
@@ -1829,13 +1836,6 @@ this trigger is subscribed to `gdb-buf-publisher' and called with
   :group 'gdb
   :version "25.1")
 
-(defcustom gdb-display-io-buffer t
-  "When non-nil, display the `gdb-inferior-io' buffer.  Otherwise,
-send program output to the GDB buffer."
-  :type 'boolean
-  :group 'gdb
-  :version "30.1")
-
 (defun gdb-inferior-filter (proc string)
   (unless (string-equal string "")
     (let (buf)