let goto_char v args =
let f s =
let n =
try Cam_misc.my_int_of_string args.(0)
with _ -> invalid_arg "Bad character number"
in
v#goto_char (n-1)
in
Ed_misc.input_command_arg
v#minibuffer ~history: goto_history
~title: "Go to char"
f (Printf.sprintf "%s_goto_char" factory_name) args