From 7fdba7057b6f95da5217c18cd7f9b4c031c2140c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 25 Aug 2005 11:04:38 +0000 Subject: [PATCH] (Finding Overlays): Fix `find-overlay-prop' in `next-overlay-change' example. --- lispref/display.texi | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lispref/display.texi b/lispref/display.texi index d4be7b54cc0..8addb3b67ec 100644 --- a/lispref/display.texi +++ b/lispref/display.texi @@ -1501,20 +1501,26 @@ end of an overlay, before @var{pos}. If there is none, it returns @code{(point-min)}. @end defun - Here's an easy way to use @code{next-overlay-change} to search for the -next character which gets a non-@code{nil} @code{happy} property from + Here's a function which uses @code{next-overlay-change} to search +for the next character which gets a given property @code{prop} from either its overlays or its text properties (@pxref{Property Search}): @smallexample (defun find-overlay-prop (prop) (save-excursion (while (and (not (eobp)) - (not (get-char-property (point) 'happy))) + (not (get-char-property (point) prop))) (goto-char (min (next-overlay-change (point)) - (next-single-property-change (point) 'happy)))) + (next-single-property-change (point) prop)))) (point))) @end smallexample + Now you can search for a @code{happy} property like this: + +@smallexample +(find-overlay-prop 'happy) +@end smallexample + @node Width @section Width -- 2.39.2