Function: cider-sexp-at-point

cider-sexp-at-point is a byte-compiled function defined in cider-util.el.

Signature

(cider-sexp-at-point &optional BOUNDS)

Documentation

Return the sexp at point as a string, otherwise nil.

If BOUNDS is non-nil, return a list of its starting and ending position instead.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-util.el
;;; sexp navigation
(defun cider-sexp-at-point (&optional bounds)
  "Return the sexp at point as a string, otherwise nil.
If BOUNDS is non-nil, return a list of its starting and ending position
instead."
  (when-let* ((b (or (and (equal (char-after) ?\()
                          (member (char-before) '(?\' ?\, ?\@))
                          ;; hide stuff before ( to avoid quirks with '( etc.
                          (save-restriction
                            (narrow-to-region (point) (point-max))
                            (bounds-of-thing-at-point 'sexp)))
                     (bounds-of-thing-at-point 'sexp))))
    (funcall (if bounds #'list #'buffer-substring-no-properties)
             (car b) (cdr b))))