let fi_has_persistent_selection fi =
        (match fi.T.fi_init_marks with None -> false | _ -> true)