Fix infinite recursion in gdb-mi.el

* lisp/progmodes/gdb-mi.el: (gdb-clear-partial-output)
(gdb-clear-inferior-io):  Set inhibit-read-only, to avoid
signaling errors in process filter.  (Bug#69327)
This commit is contained in:
Eli Zaretskii 2024-02-24 15:12:57 +02:00
parent 01ebc95114
commit 0530800175

View file

@ -1849,7 +1849,8 @@ this trigger is subscribed to `gdb-buf-publisher' and called with
(defun gdb-clear-inferior-io ()
(with-current-buffer (gdb-get-buffer-create 'gdb-inferior-io)
(erase-buffer)))
(let ((inhibit-read-only t))
(erase-buffer))))
(defconst breakpoint-xpm-data
@ -2819,7 +2820,8 @@ current thread and update GDB buffers."
(defun gdb-clear-partial-output ()
(with-current-buffer (gdb-get-buffer-create 'gdb-partial-output-buffer)
(erase-buffer)))
(let ((inhibit-read-only t))
(erase-buffer))))
;; Parse GDB/MI result records: this process converts
;; list [...] -> list