From d3ed9ea6993b4f7a6edb28b654dfd61479719184 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Sat, 6 Jun 2026 14:35:22 +0000 Subject: [PATCH] Implement Fmarkers_in using a marker_it * src/marker.c (Fmarkers_in): Use 'marker_it_init' and friends. --- src/marker.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/marker.c b/src/marker.c index d44b8a26862..0a5951c7c23 100644 --- a/src/marker.c +++ b/src/marker.c @@ -842,9 +842,14 @@ The list includes markers at BEG and at END. */) iend = clip_to_bounds (BEGV, XFIXNUM (end), ZV); } - for (tail = BUF_MARKERS (current_buffer); tail; tail = tail->next) - if (ibeg <= tail->charpos && tail->charpos <= iend) - res = Fcons (make_lisp_ptr (tail, Lisp_Vectorlike), res); + struct marker_it it = marker_it_init (current_buffer); + while (marker_it_valid (&it)) + { + tail = marker_it_marker (&it); + if (ibeg <= tail->charpos && tail->charpos <= iend) + res = Fcons (make_lisp_ptr (tail, Lisp_Vectorlike), res); + marker_it_next (&it); + } return res; }