198 |
Lisp_Object specs; |
Lisp_Object specs; |
199 |
Lisp_Object teml; |
Lisp_Object teml; |
200 |
Lisp_Object enable; |
Lisp_Object enable; |
201 |
int speccount = specpdl_ptr - specpdl; |
int speccount = SPECPDL_INDEX (); |
202 |
|
|
203 |
/* The index of the next element of this_command_keys to examine for |
/* The index of the next element of this_command_keys to examine for |
204 |
the 'e' interactive code. */ |
the 'e' interactive code. */ |
541 |
|
|
542 |
case 'k': /* Key sequence. */ |
case 'k': /* Key sequence. */ |
543 |
{ |
{ |
544 |
int speccount1 = specpdl_ptr - specpdl; |
int speccount1 = SPECPDL_INDEX (); |
545 |
specbind (Qcursor_in_echo_area, Qt); |
specbind (Qcursor_in_echo_area, Qt); |
546 |
args[i] = Fread_key_sequence (build_string (callint_message), |
args[i] = Fread_key_sequence (build_string (callint_message), |
547 |
Qnil, Qnil, Qnil, Qnil); |
Qnil, Qnil, Qnil, Qnil); |
569 |
|
|
570 |
case 'K': /* Key sequence to be defined. */ |
case 'K': /* Key sequence to be defined. */ |
571 |
{ |
{ |
572 |
int speccount1 = specpdl_ptr - specpdl; |
int speccount1 = SPECPDL_INDEX (); |
573 |
specbind (Qcursor_in_echo_area, Qt); |
specbind (Qcursor_in_echo_area, Qt); |
574 |
args[i] = Fread_key_sequence (build_string (callint_message), |
args[i] = Fread_key_sequence (build_string (callint_message), |
575 |
Qnil, Qt, Qnil, Qnil); |
Qnil, Qt, Qnil, Qnil); |