mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(find-lisp-find-files-internal):

Browse source 
Use dolist, when and file-name-as-directory.
This commit is contained in:
Stefan Monnier 2000-11-21 22:07:43 +00:00
parent f71974e12f
commit 43adc21356
1 changed files with 21 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

49
lisp/find-lisp.el
View file

@ -119,8 +119,7 @@ Argument DIR is the directory containing FILE."
"Find files in DIRECTORY which match REGEXP."
(let ((file-predicate 'find-lisp-default-file-predicate)
(directory-predicate 'find-lisp-default-directory-predicate)
(find-lisp-regexp regexp)
)
(find-lisp-regexp regexp))
(find-lisp-find-files-internal
directory
file-predicate
@ -135,34 +134,28 @@ directory.
DIRECTORY-PREDICATE is used to decide whether to descend into directories.
It is a function which takes two arguments, the directory and its parent."
(or (string-match "/$" directory)
(setq directory (concat directory "/")))
(setq directory (file-name-as-directory directory))
(let (results sub-results)
(mapcar
(function
(lambda(file)
(let ((fullname (expand-file-name file directory)))
(and (file-readable-p (expand-file-name file directory))
(dolist (file (directory-files directory nil nil t))
(let ((fullname (expand-file-name file directory)))
(when (file-readable-p (expand-file-name file directory))
;; If a directory, check it we should descend into it
(and (file-directory-p fullname)
(funcall directory-predicate file directory)
(progn
;; If a directory, check it we should descend into it
(and (file-directory-p fullname)
(funcall directory-predicate file directory)
(progn
(setq sub-results
(find-lisp-find-files-internal
fullname
file-predicate
directory-predicate))
(if results
(nconc results sub-results)
(setq results sub-results))))
;; For all files and directories, call the file predicate
(and (funcall file-predicate file directory)
(if results
(nconc results (list fullname))
(setq results (list fullname))))
)))))
(directory-files directory nil nil t))
(setq sub-results
(find-lisp-find-files-internal
fullname
file-predicate
directory-predicate))
(if results
(nconc results sub-results)
(setq results sub-results))))
;; For all files and directories, call the file predicate
(and (funcall file-predicate file directory)
(if results
(nconc results (list fullname))
(setq results (list fullname)))))))
results))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;