Function: form-at-point

form-at-point is a byte-compiled function defined in thingatpt.el.gz.

Signature

(form-at-point &optional THING PRED)

Source Code

;; Defined in /usr/src/emacs/lisp/thingatpt.el.gz
(defun form-at-point (&optional thing pred)
  (let* ((obj (thing-at-point (or thing 'sexp)))
         (sexp (if (stringp obj)
                   (ignore-errors
                     (thing-at-point--read-from-whole-string obj))
                 obj)))
    (if (or (not pred) (funcall pred sexp)) sexp)))