Function: lisp-ppss

lisp-ppss is a byte-compiled function defined in lisp-mode.el.gz.

Signature

(lisp-ppss &optional POS)

Documentation

Return Parse-Partial-Sexp State at POS, defaulting to point.

Like syntax-ppss but includes the character address of the last complete sexp in the innermost containing list at position
2 (counting from 0). This is important for Lisp indentation.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/lisp-mode.el.gz
(defun lisp-ppss (&optional pos)
  "Return Parse-Partial-Sexp State at POS, defaulting to point.
Like `syntax-ppss' but includes the character address of the last
complete sexp in the innermost containing list at position
2 (counting from 0).  This is important for Lisp indentation."
  (unless pos (setq pos (point)))
  (let ((pss (syntax-ppss pos)))
    (if (nth 9 pss)
        (let ((sexp-start (car (last (nth 9 pss)))))
          (parse-partial-sexp sexp-start pos nil nil (syntax-ppss sexp-start)))
      pss)))