diff options
| -rw-r--r-- | lisp/paths.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/paths.el b/lisp/paths.el index b79e925aee3..388da1af8f2 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -37,13 +37,13 @@ ;; DOC file rather than in memory. (defun prune-directory-list (dirs &optional keep reject) - "Returns a copy of DIRS with all non-existant directories removed. + "Returns a copy of DIRS with all non-existent directories removed. The optional argument KEEP is a list of directories to retain even if they don't exist, and REJECT is a list of directories to remove from DIRS, even if they exist; REJECT takes precedence over KEEP. Note that membership in REJECT and KEEP is checked using simple string -comparision." +comparison." (apply #'nconc (mapcar (lambda (dir) (and (not (member dir reject)) |