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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
