Re: emacs-21.1 gets stuck in a loop trying to handle SIGSEGV

[Richard Stallman]

Does this patch fix it?

*** fileio.c.~1.435.~   Fri Dec 21 09:06:21 2001
--- fileio.c    Sat Dec 29 15:09:58 2001
***************
*** 5539,5545 ****
    Lisp_Object lispstream;
    int count = specpdl_ptr - specpdl;
    int orig_minibuffer_auto_raise = minibuffer_auto_raise;
!   int message_p = push_message ();
    
    /* Ordinarily don't quit within this function,
       but don't make it impossible to quit (in case we get hung in I/O).  */
--- 5539,5554 ----
    Lisp_Object lispstream;
    int count = specpdl_ptr - specpdl;
    int orig_minibuffer_auto_raise = minibuffer_auto_raise;
!   int message_p = 0;
! 
!   if (max_specpdl_size < specpdl_size + 40)
!     max_specpdl_size = specpdl_size + 40;
! 
!   if (minibuf_level)
!     no_message = Qt;
! 
!   if (NILP (no_message));
!     message_p = push_message ();
    
    /* Ordinarily don't quit within this function,
       but don't make it impossible to quit (in case we get hung in I/O).  */
***************
*** 5548,5556 ****
  
    /* No GCPRO needed, because (when it matters) all Lisp_Object variables
       point to non-strings reached from Vbuffer_alist.  */
- 
-   if (minibuf_level)
-     no_message = Qt;
  
    if (!NILP (Vrun_hooks))
      call1 (Vrun_hooks, intern ("auto-save-hook"));
--- 5557,5562 ----