let filename_view_patterns =
new CF.list_cp ~group
(CF.tuple2_wrappers CF.string_wrappers CF.string_wrappers)
["view_from_filename_patterns"]
default_filename_view_patterns
("Associations between regular expressions on filename and the "^
"view to use to open the file")