let set_active_sourceview o = if List.exists (fun v -> Oo.id v = Oo.id o) !views then active_sourceview := Some o; make_buffer_first_in_history o#buffer_name