Lines Matching defs:predicate
61 (defvar find-lisp-file-predicate nil
64 (defvar find-lisp-directory-predicate nil
87 (defun find-lisp-default-directory-predicate (dir parent)
100 (defun find-lisp-default-file-predicate (file dir)
109 (defun find-lisp-file-predicate-is-directory (file dir)
125 (let ((file-predicate 'find-lisp-default-file-predicate)
126 (directory-predicate 'find-lisp-default-directory-predicate)
130 file-predicate
131 directory-predicate)))
134 (defun find-lisp-find-files-internal (directory file-predicate
135 directory-predicate)
149 (funcall directory-predicate file directory)
154 file-predicate
155 directory-predicate))
159 ;; For all files and directories, call the file predicate
160 (and (funcall file-predicate file directory)
177 'find-lisp-default-file-predicate
178 'find-lisp-default-directory-predicate
188 'find-lisp-file-predicate-is-directory
189 'find-lisp-default-directory-predicate
194 (defun find-lisp-find-dired-internal (dir file-predicate
195 directory-predicate buffer-name)
219 (make-local-variable 'find-lisp-file-predicate)
220 (setq find-lisp-file-predicate file-predicate)
221 (make-local-variable 'find-lisp-directory-predicate)
222 (setq find-lisp-directory-predicate directory-predicate)
232 find-lisp-file-predicate
233 find-lisp-directory-predicate
248 dir file-predicate directory-predicate 'ignore)
253 file-predicate
254 directory-predicate
260 file-predicate
261 directory-predicate))