Function: find-to-string

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

Signature

(find-to-string FORM)

Documentation

Parse FORM to produce a set of valid find arguments.

Source Code

;; Defined in /usr/src/emacs/lisp/find-cmd.el.gz
(defun find-to-string (form)
  "Parse FORM to produce a set of valid find arguments."
  (cond
    ((stringp form)
     form)
    ((consp form)
     (let ((option (cdr (assoc (car form) find-constituents))))
       (cond
         ((and (symbolp option) (fboundp option))
          (funcall option (cdr form)))
         ((consp option)
          (let ((option (symbol-name (car form)))
                (argcnt (car option))
                (oper (cadr option))
                (dont-quote (car (cddr option))))
            (find-to-string
             (find-generic option oper argcnt (cdr form) dont-quote))))
         (t
          (error "Sorry I don't know how to handle `%s'" (car form))))))))