Mercurial > emacs
diff src/editfns.c @ 51841:59ba1f5d0a16
(overlays_around): Use new type for overlays_(before|after).
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 09 Jul 2003 14:51:57 +0000 |
parents | beceb827c1ce |
children | a057bd074729 |
line wrap: on
line diff
--- 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);