let multiclip_remove mc args =
if Array.length args > 0 then
Array.iter mc#remove args
else
begin
let title = "Remove an entry from last active multiclip" in
let choices =
List.map fst
(Multiclip.elements (Multiclip.storable_get_multiclip mc#storable_multiclip))
in
let f s = Cam_commands.launch_command
(Printf.sprintf "%s_remove" factory_name) [| s |]
in
Ed_misc.select_string
mc#minibuffer
~title
~choices
""
f
end