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

[Stefan Monnier]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.312 emacs/src/alloc.c:1.313
*** emacs/src/alloc.c:1.312     Mon Jul  7 16:39:40 2003
--- emacs/src/alloc.c   Wed Jul  9 10:53:41 2003
***************
*** 5007,5014 ****
            struct Lisp_Overlay *ptr = XOVERLAY (obj);
            mark_object (ptr->start);
            mark_object (ptr->end);
!           obj = ptr->plist;
!           goto loop;
          }
          break;
  
--- 5007,5018 ----
            struct Lisp_Overlay *ptr = XOVERLAY (obj);
            mark_object (ptr->start);
            mark_object (ptr->end);
!           mark_object (ptr->plist);
!           if (ptr->next)
!             {
!               XSETMISC (obj, ptr->next);
!               goto loop;
!             }
          }
          break;
  
***************
*** 5062,5068 ****
       Lisp_Object buf;
  {
    register struct buffer *buffer = XBUFFER (buf);
!   register Lisp_Object *ptr;
    Lisp_Object base_buffer;
  
    VECTOR_MARK (buffer);
--- 5066,5072 ----
       Lisp_Object buf;
  {
    register struct buffer *buffer = XBUFFER (buf);
!   register Lisp_Object *ptr, tmp;
    Lisp_Object base_buffer;
  
    VECTOR_MARK (buffer);
***************
*** 5104,5109 ****
--- 5108,5124 ----
      }
    else
      mark_object (buffer->undo_list);
+ 
+   if (buffer->overlays_before)
+     {
+       XSETMISC (tmp, buffer->overlays_before);
+       mark_object (tmp);
+     }
+   if (buffer->overlays_after)
+     {
+       XSETMISC (tmp, buffer->overlays_after);
+       mark_object (tmp);
+     }
  
    for (ptr = &buffer->name;
         (char *)ptr < (char *)buffer + sizeof (struct buffer);