let ocaml_syntax_mode_installed () = let lm = Ed_sourceview.language_manager in let l = Gtksv_utils.available_source_languages ~manager: lm () in List.exists (fun l -> String.lowercase l#name = "objective caml") l