+ self#set_wrap_mode `CHAR;
+ (* create "USER_INPUT_START" mark. This mark will always point to the
+ * beginning of user input not yet processed *)
+ ignore (buf#create_mark ~name:"USER_INPUT_START"
+ ~left_gravity:true buf#start_iter);
+ ignore (buf#connect#after#insert_text (fun iter text ->
+ if (not _ignore_insert_text_signal) &&
+ (iter#compare buf#end_iter = 0) && (* insertion at end *)
+ (Pcre.pmatch ~rex:trailing_NL_RE text)
+ then
+ let inserted_text =
+ buf#get_text
+ ~start:(buf#get_iter_at_mark (`NAME "USER_INPUT_START"))
+ ~stop:buf#end_iter ()
+ in
+ let pat = (Pcre.quote _phrase_sep) ^ "\\s*$" in
+ if Pcre.pmatch ~pat inserted_text then begin (* complete phrase *)
+ self#lock;
+ _callback inserted_text;
+ self#echo_prompt ()
+ end))
+
+ (* lock old text and bump USER_INPUT_START mark *)