From 88006f77c435184cbb0b2403720bcff9b8bd0e56 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 9 Jul 2003 14:51:57 +0000 Subject: [PATCH] (overlays_around): Use new type for overlays_(before|after). --- src/editfns.c | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) 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); -- 2.39.2