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))