Mercurial > emacs
changeset 51840:a3cbfa94cfee
(load_overlay_strings): Use new type for overlays_(before|after).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 09 Jul 2003 14:51:29 +0000 |
| parents | 514920a68703 |
| children | 59ba1f5d0a16 |
| files | src/xdisp.c |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Wed Jul 09 14:50:51 2003 +0000 +++ b/src/xdisp.c Wed Jul 09 14:51:29 2003 +0000 @@ -3986,7 +3986,8 @@ int charpos; { extern Lisp_Object Qafter_string, Qbefore_string, Qwindow, Qpriority; - Lisp_Object ov, overlay, window, str, invisible; + Lisp_Object overlay, window, str, invisible; + struct Lisp_Overlay *ov; int start, end; int size = 20; int n = 0, i, j, invis_p; @@ -4026,9 +4027,9 @@ while (0) /* Process overlay before the overlay center. */ - for (ov = current_buffer->overlays_before; CONSP (ov); ov = XCDR (ov)) - { - overlay = XCAR (ov); + for (ov = current_buffer->overlays_before; ov; ov = ov->next) + { + XSETMISC (overlay, ov); xassert (OVERLAYP (overlay)); start = OVERLAY_POSITION (OVERLAY_START (overlay)); end = OVERLAY_POSITION (OVERLAY_END (overlay)); @@ -4066,9 +4067,9 @@ } /* Process overlays after the overlay center. */ - for (ov = current_buffer->overlays_after; CONSP (ov); ov = XCDR (ov)) - { - overlay = XCAR (ov); + for (ov = current_buffer->overlays_after; ov; ov = ov->next) + { + XSETMISC (overlay, ov); xassert (OVERLAYP (overlay)); start = OVERLAY_POSITION (OVERLAY_START (overlay)); end = OVERLAY_POSITION (OVERLAY_END (overlay));