Commit 88006f77 authored by Stefan Monnier's avatar Stefan Monnier

(overlays_around): Use new type for overlays_(before|after).

parent b7253a3e
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment