find-snip in text%
Returns the snip at a given position, or #f if an appropriate
snip cannot be found.
( -> send a-text find-snip pos direction s-pos)snip% object or #f
pos : exact non-negative integer
direction : symbol in '(before-or-none before after after-or-none)
s-pos = : boxed exact non-negative integer or #f#f
If the position pos is between
two snips, direction specifies which snip to return; direction
can be any of the following:
'before-or-none -- returns the snip before the
position, or #f if pos is 0
'before -- returns the snip before the position,
or the first snip if pos is 0
'after -- returns the snip after the position, or
the last snip if pos is the last position
'after-or-none - returns the snip after the
position, or #f if pos is the last position or larger
The s-pos box is filled with the position where the returned snip starts, unless
s-pos is #f.