Slight better to test for `capabilities("cledit")` - and I'd probably put the functions inside that test, i.e.:

```R
if (capabilities("cledit")) {
  .First <- function() ...
  .List <- function() ...
}
```