Function: find-and
find-and is a byte-compiled function defined in find-cmd.el.gz.
Signature
(find-and FORM)
Documentation
And FORMs together, so:
(and (mtime "+1") (name "something"))
will produce:
find . \( -mtime +1 -and -name something \)
Source Code
;; Defined in /usr/src/emacs/lisp/find-cmd.el.gz
(defun find-and (form)
"And FORMs together, so:
(and (mtime \"+1\") (name \"something\"))
will produce:
find . \\( -mtime +1 -and -name something \\)"
(if (< (length form) 2)
(find-to-string (car form))
(concat "\\( "
(mapconcat #'find-to-string form "-and ")
"\\) ")))