let switch_to_buffer (v : sourceview) name =
try
let b = get_buffer_by_name name in
v#set_file ~focus_in: true b
with Not_found ->
Ed_misc.error_message
(Printf.sprintf "No %s buffer %s"
factory_name (utf8_of_filename name))