Mercurial > emacs
changeset 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 | a3cbfa94cfee |
| children | efecd49d7338 |
| files | src/editfns.c |
| diffstat | 1 files changed, 6 insertions(+), 9 deletions(-) [+] |
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);