let search_in_buffer forward (buffer : Ed_sourceview.my_buffer) start stop rex =
match buffer#re_search forward ~start ~stop rex with
None -> raise Not_found
| Some (start, stop) ->
let pos = start#offset in
let text = buffer#get_text ~start ~stop () in
(pos, text)