Mercurial > hg > xemacs-beta
diff src/callint.c @ 371:cc15677e0335 r21-2b1
Import from CVS: tag r21-2b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:03:08 +0200 |
| parents | 9ea74add5d37 |
| children | 6240c7796c7a |
line wrap: on
line diff
--- a/src/callint.c Mon Aug 13 11:01:58 2007 +0200 +++ b/src/callint.c Mon Aug 13 11:03:08 2007 +0200 @@ -715,14 +715,7 @@ } case 'k': /* Key sequence (vector of events) */ { - struct gcpro ngcpro1; - Lisp_Object tem; - Lisp_Object key_prompt = PROMPT (); - - NGCPRO1(key_prompt); - tem = Fread_key_sequence (key_prompt, Qnil, Qnil); - NUNGCPRO; - + Lisp_Object tem = Fread_key_sequence (PROMPT (), Qnil, Qnil); visargs[argnum] = Fkey_description (tem); /* The following makes `describe-key' not work with extent-local keymaps and such; and anyway, it's @@ -735,14 +728,7 @@ case 'K': /* Key sequence (vector of events), no automatic downcasing */ { - struct gcpro ngcpro1; - Lisp_Object tem; - Lisp_Object key_prompt = PROMPT (); - - NGCPRO1(key_prompt); - tem = Fread_key_sequence (key_prompt, Qnil, Qt); - NUNGCPRO; - + Lisp_Object tem = Fread_key_sequence (PROMPT (), Qnil, Qt); visargs[argnum] = Fkey_description (tem); /* The following makes `describe-key' not work with extent-local keymaps and such; and anyway, it's