Function: find-prune

find-prune is a byte-compiled function defined in find-cmd.el.gz.

Signature

(find-prune FORM)

Documentation

-or together FORMs postfix -prune and then -or that with a
-true, so:
  ((prune (name ".svn" ".git")) (name "*.pm"))
will produce (unwrapped):
  \( \( \( -name .svn -or -name .git \) /
  -prune -or -true \) -and -name *.pm \)

Source Code

;; Defined in /usr/src/emacs/lisp/find-cmd.el.gz
(defun find-prune (form)
  "-or together FORMs postfix `-prune' and then -or that with a
-true, so:
  ((prune (name \".svn\" \".git\")) (name \"*.pm\"))
will produce (unwrapped):
  \\( \\( \\( -name .svn -or -name .git \\) /
  -prune -or -true \\) -and -name *.pm \\)"
  (find-or
   (list
    (concat (find-or (mapcar #'find-to-string form)) (find-generic "prune"))
    (find-generic "true"))))