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

diff -r 514920a68703 -r a3cbfa94cfee src/xdisp.c
--- a/src/xdisp.c	Wed Jul 09 14:50:51 2003 +0000
+++ b/src/xdisp.c	Wed Jul 09 14:51:29 2003 +0000
@@ -3986,7 +3986,8 @@
      int charpos;
 {
   extern Lisp_Object Qafter_string, Qbefore_string, Qwindow, Qpriority;
-  Lisp_Object ov, overlay, window, str, invisible;
+  Lisp_Object overlay, window, str, invisible;
+  struct Lisp_Overlay *ov;
   int start, end;
   int size = 20;
   int n = 0, i, j, invis_p;
@@ -4026,9 +4027,9 @@
   while (0)
 
   /* Process overlay before the overlay center.  */
-  for (ov = current_buffer->overlays_before; CONSP (ov); ov = XCDR (ov))
-    {
-      overlay = XCAR (ov);
+  for (ov = current_buffer->overlays_before; ov; ov = ov->next)
+    {
+      XSETMISC (overlay, ov);
       xassert (OVERLAYP (overlay));
       start = OVERLAY_POSITION (OVERLAY_START (overlay));
       end = OVERLAY_POSITION (OVERLAY_END (overlay));
@@ -4066,9 +4067,9 @@
     }
 
   /* Process overlays after the overlay center.  */
-  for (ov = current_buffer->overlays_after; CONSP (ov); ov = XCDR (ov))
-    {
-      overlay = XCAR (ov);
+  for (ov = current_buffer->overlays_after; ov; ov = ov->next)
+    {
+      XSETMISC (overlay, ov);
       xassert (OVERLAYP (overlay));
       start = OVERLAY_POSITION (OVERLAY_START (overlay));
       end = OVERLAY_POSITION (OVERLAY_END (overlay));