573 |
unconditionally for that argument. (`p' is a good way to do this.) */) |
unconditionally for that argument. (`p' is a good way to do this.) */) |
574 |
() |
() |
575 |
{ |
{ |
576 |
return (INTERACTIVE && interactive_p (1)) ? Qt : Qnil; |
return interactive_p (1) ? Qt : Qnil; |
577 |
} |
} |
578 |
|
|
579 |
|
|
595 |
/* If this isn't a byte-compiled function, there may be a frame at |
/* If this isn't a byte-compiled function, there may be a frame at |
596 |
the top for Finteractive_p. If so, skip it. */ |
the top for Finteractive_p. If so, skip it. */ |
597 |
fun = Findirect_function (*btp->function); |
fun = Findirect_function (*btp->function); |
598 |
if (SUBRP (fun) && XSUBR (fun) == &Sinteractive_p) |
if (SUBRP (fun) && (XSUBR (fun) == &Sinteractive_p |
599 |
|
|| XSUBR (fun) == &Scalled_interactively_p)) |
600 |
btp = btp->next; |
btp = btp->next; |
601 |
|
|
602 |
/* If we're running an Emacs 18-style byte-compiled function, there |
/* If we're running an Emacs 18-style byte-compiled function, there |
1174 |
/* Save the value in the tag. */ |
/* Save the value in the tag. */ |
1175 |
catch->val = value; |
catch->val = value; |
1176 |
|
|
1177 |
/* Restore the polling-suppression count. */ |
/* Restore certain special C variables. */ |
1178 |
set_poll_suppress_count (catch->poll_suppress_count); |
set_poll_suppress_count (catch->poll_suppress_count); |
1179 |
interrupt_input_blocked = catch->interrupt_input_blocked; |
interrupt_input_blocked = catch->interrupt_input_blocked; |
1180 |
|
handling_signal = 0; |
1181 |
|
|
1182 |
do |
do |
1183 |
{ |
{ |