* lisp/progmodes/gdb-mi.el: Fix interactive invocation of 'gud-go'.

Bug#64590.

Copyright-paperwork-exempt: yes

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 4ad73823b64d70076c885e878a96c460183bab3b..d4e17554d94a0d504aed2d934bd354d809ceed35 100644 (file)
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -988,7 +988,7 @@ detailed description of this mode.
           "\C-u" "Continue to current line or address.")
   (gud-def
    gud-go (progn
-            (when arg
+            (when (and current-prefix-arg arg)
               (gud-call (concat "-exec-arguments "
                                 (read-string "Arguments to exec-run: "))))
             (gud-call