# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057762317 0
# Node ID 59ba1f5d0a1672cf3834ae825826ce41b74f1fda
# Parent  a3cbfa94cfee5f9c939d9d15613b82efbe13f665
(overlays_around): Use new type for overlays_(before|after).

diff -r a3cbfa94cfee -r 59ba1f5d0a16 src/editfns.c
--- a/src/editfns.c	Wed Jul 09 14:51:29 2003 +0000
+++ b/src/editfns.c	Wed Jul 09 14:51:57 2003 +0000
@@ -338,15 +338,14 @@
      Lisp_Object *vec;
      int len;
 {
-  Lisp_Object tail, overlay, start, end;
+  Lisp_Object overlay, start, end;
+  struct Lisp_Overlay *tail;
   int startpos, endpos;
   int idx = 0;
 
-  for (tail = current_buffer->overlays_before;
-       GC_CONSP (tail);
-       tail = XCDR (tail))
+  for (tail = current_buffer->overlays_before; tail; tail = tail->next)
     {
-      overlay = XCAR (tail);
+      XSETMISC (overlay, tail);
 
       end = OVERLAY_END (overlay);
       endpos = OVERLAY_POSITION (end);
@@ -363,11 +362,9 @@
 	}
     }
 
-  for (tail = current_buffer->overlays_after;
-       GC_CONSP (tail);
-       tail = XCDR (tail))
+  for (tail = current_buffer->overlays_after; tail; tail = tail->next)
     {
-      overlay = XCAR (tail);
+      XSETMISC (overlay, tail);
 
       start = OVERLAY_START (overlay);
       startpos = OVERLAY_POSITION (start);