[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/paths.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/paths.el |
Date: |
Wed, 20 Jul 2005 16:41:59 -0400 |
Index: emacs/lisp/paths.el
diff -c emacs/lisp/paths.el:1.69 emacs/lisp/paths.el:1.70
*** emacs/lisp/paths.el:1.69 Mon Jul 4 23:08:56 2005
--- emacs/lisp/paths.el Wed Jul 20 20:41:53 2005
***************
*** 37,49 ****
;; 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.
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."
(apply #'nconc
(mapcar (lambda (dir)
(and (not (member dir reject))
--- 37,49 ----
;; DOC file rather than in memory.
(defun prune-directory-list (dirs &optional keep reject)
! "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
! comparison."
(apply #'nconc
(mapcar (lambda (dir)
(and (not (member dir reject))