934 |
Lisp_Object |
Lisp_Object |
935 |
recursive_edit_1 () |
recursive_edit_1 () |
936 |
{ |
{ |
937 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
938 |
Lisp_Object val; |
Lisp_Object val; |
939 |
|
|
940 |
if (command_loop_level > 0) |
if (command_loop_level > 0) |
1000 |
This function is called by the editor initialization to begin editing. */) |
This function is called by the editor initialization to begin editing. */) |
1001 |
() |
() |
1002 |
{ |
{ |
1003 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
1004 |
Lisp_Object buffer; |
Lisp_Object buffer; |
1005 |
|
|
1006 |
command_loop_level++; |
command_loop_level++; |
1407 |
{ |
{ |
1408 |
/* Bind inhibit-quit to t so that C-g gets read in |
/* Bind inhibit-quit to t so that C-g gets read in |
1409 |
rather than quitting back to the minibuffer. */ |
rather than quitting back to the minibuffer. */ |
1410 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
1411 |
specbind (Qinhibit_quit, Qt); |
specbind (Qinhibit_quit, Qt); |
1412 |
|
|
1413 |
Fsit_for (Vminibuffer_message_timeout, Qnil, Qnil); |
Fsit_for (Vminibuffer_message_timeout, Qnil, Qnil); |
1838 |
safe_run_hooks (hook) |
safe_run_hooks (hook) |
1839 |
Lisp_Object hook; |
Lisp_Object hook; |
1840 |
{ |
{ |
1841 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
1842 |
specbind (Qinhibit_quit, hook); |
specbind (Qinhibit_quit, hook); |
1843 |
|
|
1844 |
internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error); |
internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error); |
2813 |
Lisp_Object keys; |
Lisp_Object keys; |
2814 |
int key_count; |
int key_count; |
2815 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
2816 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
2817 |
|
|
2818 |
/* Save the echo status. */ |
/* Save the echo status. */ |
2819 |
int saved_immediate_echo = current_kboard->immediate_echo; |
int saved_immediate_echo = current_kboard->immediate_echo; |
2943 |
if (!NILP (Vhelp_form) && help_char_p (c)) |
if (!NILP (Vhelp_form) && help_char_p (c)) |
2944 |
{ |
{ |
2945 |
Lisp_Object tem0; |
Lisp_Object tem0; |
2946 |
count = specpdl_ptr - specpdl; |
count = SPECPDL_INDEX (); |
2947 |
|
|
2948 |
record_unwind_protect (Fset_window_configuration, |
record_unwind_protect (Fset_window_configuration, |
2949 |
Fcurrent_window_configuration (Qnil)); |
Fcurrent_window_configuration (Qnil)); |
3223 |
(args) |
(args) |
3224 |
Lisp_Object args; |
Lisp_Object args; |
3225 |
{ |
{ |
3226 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
3227 |
Lisp_Object val; |
Lisp_Object val; |
3228 |
|
|
3229 |
record_unwind_protect (tracking_off, do_mouse_tracking); |
record_unwind_protect (tracking_off, do_mouse_tracking); |
6789 |
menu_item_eval_property (sexpr) |
menu_item_eval_property (sexpr) |
6790 |
Lisp_Object sexpr; |
Lisp_Object sexpr; |
6791 |
{ |
{ |
6792 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
6793 |
Lisp_Object val; |
Lisp_Object val; |
6794 |
specbind (Qinhibit_redisplay, Qt); |
specbind (Qinhibit_redisplay, Qt); |
6795 |
val = internal_condition_case_1 (Feval, sexpr, Qerror, |
val = internal_condition_case_1 (Feval, sexpr, Qerror, |
8005 |
int fix_current_buffer; |
int fix_current_buffer; |
8006 |
{ |
{ |
8007 |
volatile Lisp_Object from_string; |
volatile Lisp_Object from_string; |
8008 |
volatile int count = specpdl_ptr - specpdl; |
volatile int count = SPECPDL_INDEX (); |
8009 |
|
|
8010 |
/* How many keys there are in the current key sequence. */ |
/* How many keys there are in the current key sequence. */ |
8011 |
volatile int t; |
volatile int t; |
9187 |
Lisp_Object keybuf[30]; |
Lisp_Object keybuf[30]; |
9188 |
register int i; |
register int i; |
9189 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
9190 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
9191 |
|
|
9192 |
if (!NILP (prompt)) |
if (!NILP (prompt)) |
9193 |
CHECK_STRING (prompt); |
CHECK_STRING (prompt); |
9246 |
Lisp_Object keybuf[30]; |
Lisp_Object keybuf[30]; |
9247 |
register int i; |
register int i; |
9248 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
9249 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
9250 |
|
|
9251 |
if (!NILP (prompt)) |
if (!NILP (prompt)) |
9252 |
CHECK_STRING (prompt); |
CHECK_STRING (prompt); |
9797 |
(stuffstring) |
(stuffstring) |
9798 |
Lisp_Object stuffstring; |
Lisp_Object stuffstring; |
9799 |
{ |
{ |
9800 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
9801 |
int old_height, old_width; |
int old_height, old_width; |
9802 |
int width, height; |
int width, height; |
9803 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |