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