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

[Juanma Barranquero]

Index: emacs/src/buffer.c
diff -c emacs/src/buffer.c:1.390 emacs/src/buffer.c:1.391
*** emacs/src/buffer.c:1.390    Sun Jul  7 06:17:26 2002
--- emacs/src/buffer.c  Thu Jul 11 10:08:13 2002
***************
*** 1297,1303 ****
  
    /* Run hooks with the buffer to be killed the current buffer.  */
    {
!     int count = specpdl_ptr - specpdl;
      Lisp_Object list;
  
      record_unwind_protect (save_excursion_restore, save_excursion_save ());
--- 1297,1303 ----
  
    /* Run hooks with the buffer to be killed the current buffer.  */
    {
!     int count = SPECPDL_INDEX ();
      Lisp_Object list;
  
      record_unwind_protect (save_excursion_restore, save_excursion_save ());
***************
*** 1548,1554 ****
    if (NILP (function) || EQ (function, Qfundamental_mode))
      return Qnil;
  
!   count = specpdl_ptr - specpdl;
  
    /* To select a nonfundamental mode,
       select the buffer temporarily and then call the mode function. */
--- 1548,1554 ----
    if (NILP (function) || EQ (function, Qfundamental_mode))
      return Qnil;
  
!   count = SPECPDL_INDEX ();
  
    /* To select a nonfundamental mode,
       select the buffer temporarily and then call the mode function. */
***************
*** 3586,3592 ****
  {
    struct buffer *b, *ob;
    Lisp_Object obuffer;
!   int count = specpdl_ptr - specpdl;
  
    CHECK_OVERLAY (overlay);
    if (NILP (buffer))
--- 3586,3592 ----
  {
    struct buffer *b, *ob;
    Lisp_Object obuffer;
!   int count = SPECPDL_INDEX ();
  
    CHECK_OVERLAY (overlay);
    if (NILP (buffer))
***************
*** 3687,3693 ****
  {
    Lisp_Object buffer;
    struct buffer *b;
!   int count = specpdl_ptr - specpdl;
  
    CHECK_OVERLAY (overlay);
  
--- 3687,3693 ----
  {
    Lisp_Object buffer;
    struct buffer *b;
!   int count = SPECPDL_INDEX ();
  
    CHECK_OVERLAY (overlay);