X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/dd8e46c7e5b2d03b05ec949510cb1c838a429f2b..2352cbea71c3edad2eaba7cea8a280bcf7a7a3ed:/lisp/gud.el

diff --git a/lisp/gud.el b/lisp/gud.el
index 53f2acf8cb..7be667ba8b 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -106,7 +106,7 @@ we're in the GUD buffer)."
 		  (list 'quote func)))
 	(if key
 	    (list 'global-set-key
-		  (concat gud-key-prefix key)
+		  (list 'concat 'gud-key-prefix key)
 		  (list 'quote func)))))
 
 ;; Where gud-display-frame should put the debugging arrow.  This is