mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2003-07-09 14:51:57 +00:00
parent b7253a3e4a
commit 88006f77c4
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/editfns.c
View File

@ -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);