Mercurial > hg > xemacs-beta
diff src/callint.c @ 306:9ea74add5d37 r21-0b51
Import from CVS: tag r21-0b51
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:41:58 +0200 |
| parents | c42ec1d1cded |
| children | cc15677e0335 |
line wrap: on
line diff
--- a/src/callint.c Mon Aug 13 10:41:13 2007 +0200 +++ b/src/callint.c Mon Aug 13 10:41:58 2007 +0200 @@ -715,7 +715,14 @@ } 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 @@ 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