- ;; 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)))))))