let candidate_buffers () = let displayed_buffers = List.map (fun o -> o#buffer_name) !views in let (last,first) = List.partition (fun name -> List.mem name displayed_buffers) !buffer_name_history in first @ last