let mode_of_filename file = match mode_name_of_filename file with None -> None | Some name -> try Some (get_mode name) with Failure s -> Ed_misc.error_message s; None