From afdf54a5313ec898b6045e48eb6dce7d4abfa565 Mon Sep 17 00:00:00 2001
From: Wang Diancheng <dianchengwang@gmail.com>
Date: Fri, 14 Jul 2023 11:06:32 +0800
Subject: * lisp/progmodes/gdb-mi.el: Fix interactive invocation of 'gud-go'.

Bug#64590.

Copyright-paperwork-exempt: yes
---
 lisp/progmodes/gdb-mi.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 4ad73823b64..d4e17554d94 100644
--- 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
-- 
cgit v1.2.3