From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 9 Jul 2003 14:51:57 +0000 (+0000)
Subject: (overlays_around): Use new type for overlays_(before|after).
X-Git-Tag: ttn-vms-21-2-B4~9409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88006f77c435184cbb0b2403720bcff9b8bd0e56;p=emacs.git

(overlays_around): Use new type for overlays_(before|after).
---

diff --git a/src/editfns.c b/src/editfns.c
index f3dc714e3cd..97a939ce43b 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -338,15 +338,14 @@ overlays_around (pos, vec, len)
      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 @@ overlays_around (pos, vec, len)
 	}
     }
 
-  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);