mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
Code Issues Releases Activity

(Finding Overlays): Fix find-overlay-prop' in next-overlay-change' example.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-08-25 11:04:38 +00:00
parent c6a816dfe1
commit 7fdba7057b
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lispref/display.texi
View File

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