[Emacs-diffs] Changes to emacs/src/buffer.c

[Dave Love]

Index: emacs/src/buffer.c
diff -c emacs/src/buffer.c:1.422 emacs/src/buffer.c:1.423
*** emacs/src/buffer.c:1.422    Mon May 26 18:18:53 2003
--- emacs/src/buffer.c  Thu May 29 14:36:07 2003
***************
*** 420,429 ****
    XSETBUFFER (buf, b);
    Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil));
  
!   /* Fixme:  Protect against errors, which would trigger infinite
!      regress?  */
    if (!NILP (Ffboundp (Qucs_set_table_for_input)))
!     /* buff is on buffer-alist, so no gcpro */
      call1 (Qucs_set_table_for_input, buf);
  
    return buf;
--- 420,430 ----
    XSETBUFFER (buf, b);
    Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil));
  
!   /* An error in calling the function here (should someone redfine it)
!      can lead to infinite regress until you run out of stack.  rms
!      says that's not worth protecting against.  */
    if (!NILP (Ffboundp (Qucs_set_table_for_input)))
!     /* buf is on buffer-alist, so no gcpro.  */
      call1 (Qucs_set_table_for_input, buf);
  
    return buf;