let apply_sourceview_props_to_registered st = List.iter (fun sv -> apply_sourceview_props sv st) !registered_source_views