let remove_buffer_from_history name =
  buffer_name_history := List.filter ((<>) name) !buffer_name_history