diff options
| author | Eli Zaretskii | 2025-09-14 08:55:44 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-09-14 08:55:44 +0300 |
| commit | 0dd6e5f642f6705ad2f7f35bbd87415bb6ecc04f (patch) | |
| tree | fd7d0135ec34d61af22730f58129258dd8f5e5ce | |
| parent | 28fecf40ef351b0ec132f87ac07d1a40493ea0ec (diff) | |
| download | emacs-0dd6e5f642f6705ad2f7f35bbd87415bb6ecc04f.tar.gz emacs-0dd6e5f642f6705ad2f7f35bbd87415bb6ecc04f.zip | |
Fix gdb-mi startup when asking user about debuginfod
* lisp/progmodes/gdb-mi.el (gdb-init-1): Delay processing of GDB
responses while waiting for the user to answer the question about
enabling debuginfod. (Bug#79403)
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 74dff3217ff..52cb301da84 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -1108,7 +1108,11 @@ detailed description of this mode. | |||
| 1108 | ;; trigger questions about debuginfod queries. | 1108 | ;; trigger questions about debuginfod queries. |
| 1109 | (if (eq gdb-debuginfod-enable 'ask) | 1109 | (if (eq gdb-debuginfod-enable 'ask) |
| 1110 | (setq gdb-debuginfod-enable | 1110 | (setq gdb-debuginfod-enable |
| 1111 | (y-or-n-p "Enable querying debuginfod servers for this session?"))) | 1111 | ;; Temporarily defer processing of GDB responses, to avoid |
| 1112 | ;; confusing us, until the user responds to the query. | ||
| 1113 | (let ((gud-filter-defer-flag t)) | ||
| 1114 | (y-or-n-p | ||
| 1115 | "Enable querying debuginfod servers for this session?")))) | ||
| 1112 | (gdb-input (format "-gdb-set debuginfod enabled %s" | 1116 | (gdb-input (format "-gdb-set debuginfod enabled %s" |
| 1113 | (if gdb-debuginfod-enable "on" "off")) | 1117 | (if gdb-debuginfod-enable "on" "off")) |
| 1114 | 'gdb-debuginfod-message) | 1118 | 'gdb-debuginfod-message) |