let apply_source_style_scheme_to_registered_buffers sss = List.iter (fun sb -> sb#set_style_scheme sss) !registered_source_buffers