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