*/
())
{
- REGISTER struct backtrace *btp;
- REGISTER Lisp_Object fun;
+ REGISTER struct backtrace *btp = NULL;
+ REGISTER Lisp_Object fun = Qnil;
if (!INTERACTIVE)
return Qnil;
#endif
- fun = Findirect_function(*btp->function);
+ if (btp)
+ fun = Findirect_function(*btp->function);
if (SUBRP(fun))
return Qnil;
/* btp points to the frame of a Lisp function that called interactive-p.
void grow_specpdl(EMACS_INT reserved)
{
EMACS_INT size_needed = specpdl_depth() + reserved;
+ if (specpdl_size == 0)
+ specpdl_size = 1;
if (size_needed >= max_specpdl_size) {
if (max_specpdl_size < min_max_specpdl_size)
max_specpdl_size = min_max_specpdl_size;