3986 |
int charpos; |
int charpos; |
3987 |
{ |
{ |
3988 |
extern Lisp_Object Qafter_string, Qbefore_string, Qwindow, Qpriority; |
extern Lisp_Object Qafter_string, Qbefore_string, Qwindow, Qpriority; |
3989 |
Lisp_Object ov, overlay, window, str, invisible; |
Lisp_Object overlay, window, str, invisible; |
3990 |
|
struct Lisp_Overlay *ov; |
3991 |
int start, end; |
int start, end; |
3992 |
int size = 20; |
int size = 20; |
3993 |
int n = 0, i, j, invis_p; |
int n = 0, i, j, invis_p; |
4027 |
while (0) |
while (0) |
4028 |
|
|
4029 |
/* Process overlay before the overlay center. */ |
/* Process overlay before the overlay center. */ |
4030 |
for (ov = current_buffer->overlays_before; CONSP (ov); ov = XCDR (ov)) |
for (ov = current_buffer->overlays_before; ov; ov = ov->next) |
4031 |
{ |
{ |
4032 |
overlay = XCAR (ov); |
XSETMISC (overlay, ov); |
4033 |
xassert (OVERLAYP (overlay)); |
xassert (OVERLAYP (overlay)); |
4034 |
start = OVERLAY_POSITION (OVERLAY_START (overlay)); |
start = OVERLAY_POSITION (OVERLAY_START (overlay)); |
4035 |
end = OVERLAY_POSITION (OVERLAY_END (overlay)); |
end = OVERLAY_POSITION (OVERLAY_END (overlay)); |
4067 |
} |
} |
4068 |
|
|
4069 |
/* Process overlays after the overlay center. */ |
/* Process overlays after the overlay center. */ |
4070 |
for (ov = current_buffer->overlays_after; CONSP (ov); ov = XCDR (ov)) |
for (ov = current_buffer->overlays_after; ov; ov = ov->next) |
4071 |
{ |
{ |
4072 |
overlay = XCAR (ov); |
XSETMISC (overlay, ov); |
4073 |
xassert (OVERLAYP (overlay)); |
xassert (OVERLAYP (overlay)); |
4074 |
start = OVERLAY_POSITION (OVERLAY_START (overlay)); |
start = OVERLAY_POSITION (OVERLAY_START (overlay)); |
4075 |
end = OVERLAY_POSITION (OVERLAY_END (overlay)); |
end = OVERLAY_POSITION (OVERLAY_END (overlay)); |