and result = | Accept of Edit_action.t * keyseq * Mew_vi.Mode.Name.t| Continue of t * keyseq| Rejected of keyseqand status = {mode : Mew_vi.Mode.Name.t React.signal;set_mode : ?step:React.step -> Mew_vi.Mode.Name.t -> unit;keyseq : keyseq React.signal;set_keyseq : ?step:React.step -> keyseq -> unit;mutable resolver_insert : t;mutable resolver_normal : t;mutable resolver_command : t;}val resolver_insert : status -> Mew_vi.Key.t list -> resultmodule Normal : sig ... endval interpret :
?resolver:t ->
?keyseq:keyseq ->
status ->
Base.Key.t Lwt_mvar.t ->
Edit_action.t Lwt_mvar.t ->
unit ->
'a Lwt.t