external guess_language:
    [>`sourcelanguagemanager] obj ->
    string option -> string option -> source_language obj option
    = "ml_gtk_source_language_manager_guess_language"