関数 parse-partial-sexp

(defun foo ()
  )

の先頭で、

(parse-partial-sexp (point) (point-max))
  => (0 nil 367 nil nil nil 0 nil nil nil)