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