Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
51840:a3cbfa94cfee | 51841:59ba1f5d0a16 |
---|---|
336 overlays_around (pos, vec, len) | 336 overlays_around (pos, vec, len) |
337 int pos; | 337 int pos; |
338 Lisp_Object *vec; | 338 Lisp_Object *vec; |
339 int len; | 339 int len; |
340 { | 340 { |
341 Lisp_Object tail, overlay, start, end; | 341 Lisp_Object overlay, start, end; |
342 struct Lisp_Overlay *tail; | |
342 int startpos, endpos; | 343 int startpos, endpos; |
343 int idx = 0; | 344 int idx = 0; |
344 | 345 |
345 for (tail = current_buffer->overlays_before; | 346 for (tail = current_buffer->overlays_before; tail; tail = tail->next) |
346 GC_CONSP (tail); | 347 { |
347 tail = XCDR (tail)) | 348 XSETMISC (overlay, tail); |
348 { | |
349 overlay = XCAR (tail); | |
350 | 349 |
351 end = OVERLAY_END (overlay); | 350 end = OVERLAY_END (overlay); |
352 endpos = OVERLAY_POSITION (end); | 351 endpos = OVERLAY_POSITION (end); |
353 if (endpos < pos) | 352 if (endpos < pos) |
354 break; | 353 break; |
361 /* Keep counting overlays even if we can't return them all. */ | 360 /* Keep counting overlays even if we can't return them all. */ |
362 idx++; | 361 idx++; |
363 } | 362 } |
364 } | 363 } |
365 | 364 |
366 for (tail = current_buffer->overlays_after; | 365 for (tail = current_buffer->overlays_after; tail; tail = tail->next) |
367 GC_CONSP (tail); | 366 { |
368 tail = XCDR (tail)) | 367 XSETMISC (overlay, tail); |
369 { | |
370 overlay = XCAR (tail); | |
371 | 368 |
372 start = OVERLAY_START (overlay); | 369 start = OVERLAY_START (overlay); |
373 startpos = OVERLAY_POSITION (start); | 370 startpos = OVERLAY_POSITION (start); |
374 if (pos < startpos) | 371 if (pos < startpos) |
375 break; | 372 break; |