Function: thing-at-point-bounds-of-list-at-point

thing-at-point-bounds-of-list-at-point is a byte-compiled function defined in thingatpt.el.gz.

Signature

(thing-at-point-bounds-of-list-at-point)

Documentation

Return the bounds of the list at point.

Prefer the enclosing list with fallback on sexp at point.
[Internal function used by bounds-of-thing-at-point.]

Source Code

;; Defined in /usr/src/emacs/lisp/thingatpt.el.gz
(defun thing-at-point-bounds-of-list-at-point ()
  "Return the bounds of the list at point.
Prefer the enclosing list with fallback on sexp at point.
\[Internal function used by `bounds-of-thing-at-point'.]"
  (save-excursion
    (if (ignore-errors (up-list -1))
	(ignore-errors (cons (point) (progn (forward-sexp) (point))))
      (let ((bound (bounds-of-thing-at-point 'sexp)))
	(and bound
	     (<= (car bound) (point)) (< (point) (cdr bound))
	     bound)))))