Fix gdb-mi prompt after "attach PID" command

* lisp/progmodes/gdb-mi.el (gdbmi-bnf-console-stream-output): Set
gdb-first-done-or-error non-nil.  (Bug#29020)

Copyright-paperwork-exempt: yes

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 28d1974893d12911a44870f105a0e6518cdcf67a..4f366c6ede6108cc164c03a71620da1a8e1281bd 100644 (file)
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2188,7 +2188,10 @@ a GDB/MI reply message."
 
 (defun gdbmi-bnf-console-stream-output (c-string)
   "Handler for the console-stream-output GDB/MI output grammar rule."
-  (gdb-console c-string))
+  (gdb-console c-string)
+  ;; We've written to the GUD console, so we should print the prompt
+  ;; after the next result-class or async-class.
+  (setq gdb-first-done-or-error t))
 
 (defun gdbmi-bnf-target-stream-output (_c-string)
   "Handler for the target-stream-output GDB/MI output grammar rule."