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;