X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fcallint.c;h=dac2dfb6e8689dded602cfb64c17752f2a9fcd0f;hp=d1cd9078ba9679b6ac03f754478b43c9b2f385d1;hb=669565bfdc5d704dfb1d5ac1a0ec01fb3615a1ae;hpb=72a705551741d6f85a40eea486c222bac482d8dc

diff --git a/src/callint.c b/src/callint.c
index d1cd907..dac2dfb 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -715,7 +715,14 @@ when reading the arguments.
             }
 	  case 'k':		/* Key sequence (vector of events) */
 	    {
-	      Lisp_Object tem = Fread_key_sequence (PROMPT (), Qnil, Qnil);
+	      struct gcpro ngcpro1;
+	      Lisp_Object tem;
+	      Lisp_Object key_prompt = PROMPT ();
+
+	      NGCPRO1(key_prompt);
+	      tem = Fread_key_sequence (key_prompt, Qnil, Qnil);
+	      NUNGCPRO;
+
 	      visargs[argnum] = Fkey_description (tem);
 	      /* The following makes `describe-key' not work with
 		 extent-local keymaps and such; and anyway, it's
@@ -728,7 +735,14 @@ when reading the arguments.
 	  case 'K':		/* Key sequence (vector of events),
 				   no automatic downcasing */
 	    {
-	      Lisp_Object tem = Fread_key_sequence (PROMPT (), Qnil, Qt);
+	      struct gcpro ngcpro1;
+	      Lisp_Object tem;
+	      Lisp_Object key_prompt = PROMPT ();
+
+	      NGCPRO1(key_prompt);
+	      tem = Fread_key_sequence (key_prompt, Qnil, Qt);
+	      NUNGCPRO;
+
 	      visargs[argnum] = Fkey_description (tem);
 	      /* The following makes `describe-key' not work with
 		 extent-local keymaps and such; and anyway, it's