- method private beginning_of_phrase =
- let buf = self#buffer in
- buf#place_cursor ~where:(buf#get_iter_at_mark (`NAME "USER_INPUT_START"))
- method private end_of_phrase =
- let buf = self#buffer in
- buf#place_cursor ~where:buf#end_iter
- method private forward_char =
- let buf = self#buffer in
- buf#place_cursor ~where:(buf#get_iter_at_mark `INSERT)#forward_char
- method private backward_char =
- let buf = self#buffer in
- buf#place_cursor ~where:(buf#get_iter_at_mark `INSERT)#backward_char