5539 |
Lisp_Object lispstream; |
Lisp_Object lispstream; |
5540 |
int count = specpdl_ptr - specpdl; |
int count = specpdl_ptr - specpdl; |
5541 |
int orig_minibuffer_auto_raise = minibuffer_auto_raise; |
int orig_minibuffer_auto_raise = minibuffer_auto_raise; |
5542 |
int message_p = push_message (); |
int message_p = 0; |
5543 |
|
|
5544 |
|
if (max_specpdl_size < specpdl_size + 40) |
5545 |
|
max_specpdl_size = specpdl_size + 40; |
5546 |
|
|
5547 |
|
if (minibuf_level) |
5548 |
|
no_message = Qt; |
5549 |
|
|
5550 |
|
if (NILP (no_message)); |
5551 |
|
message_p = push_message (); |
5552 |
|
|
5553 |
/* Ordinarily don't quit within this function, |
/* Ordinarily don't quit within this function, |
5554 |
but don't make it impossible to quit (in case we get hung in I/O). */ |
but don't make it impossible to quit (in case we get hung in I/O). */ |
5558 |
/* No GCPRO needed, because (when it matters) all Lisp_Object variables |
/* No GCPRO needed, because (when it matters) all Lisp_Object variables |
5559 |
point to non-strings reached from Vbuffer_alist. */ |
point to non-strings reached from Vbuffer_alist. */ |
5560 |
|
|
|
if (minibuf_level) |
|
|
no_message = Qt; |
|
|
|
|
5561 |
if (!NILP (Vrun_hooks)) |
if (!NILP (Vrun_hooks)) |
5562 |
call1 (Vrun_hooks, intern ("auto-save-hook")); |
call1 (Vrun_hooks, intern ("auto-save-hook")); |
5563 |
|
|