let
has_persistent_selection proj kf =
let
fi = get_kf_fi proj kf
in
fi_has_persistent_selection fi