diff options
Diffstat (limited to 'lisp/paths.el')
| -rw-r--r-- | lisp/paths.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/paths.el b/lisp/paths.el index b79e925aee3..f248eac9242 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -1,6 +1,7 @@ ;;; paths.el --- define pathnames for use by various Emacs commands -*- no-byte-compile: t -*- -;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1988, 1994, 1999, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -37,13 +38,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)) |