Function: find-lisp-default-directory-predicate

find-lisp-default-directory-predicate is a byte-compiled function defined in find-lisp.el.gz.

Signature

(find-lisp-default-directory-predicate DIR PARENT)

Documentation

True if DIR is not a dot file, and not a symlink.

PARENT is the parent directory of DIR.

Source Code

;; Defined in /usr/src/emacs/lisp/find-lisp.el.gz
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Directory and File predicates
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun find-lisp-default-directory-predicate  (dir parent)
  "True if DIR is not a dot file, and not a symlink.
PARENT is the parent directory of DIR."
  (and find-lisp-debug
       (find-lisp-debug-message
	(format "Processing directory %s in %s" dir parent)))
  ;; Skip current and parent directories
  (not (or (string= dir ".")
	   (string= dir "..")
	   ;; Skip directories which are symlinks
	   ;; Easy way to circumvent recursive loops
	   (file-symlink-p (expand-file-name dir parent)))))