Function: cider--goto-end-of-call-at-point

cider--goto-end-of-call-at-point is a byte-compiled function defined in cider-util.el.

Signature

(cider--goto-end-of-call-at-point)

Documentation

Move point to the end of the call form around point.

That is the sexp at point when it is a compound form, and the enclosing list when it is a bare symbol or another atom, since an expansion needs a call form and never a lone symbol. Where there is neither, falls back to the sexp preceding point before signalling a user-error.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260920.725/cider-util.el
(defun cider--goto-end-of-call-at-point ()
  "Move point to the end of the call form around point.
That is the sexp at point when it is a compound form, and the enclosing
list when it is a bare symbol or another atom, since an expansion needs a
call form and never a lone symbol.  Where there is neither, falls back to
the sexp preceding point before signalling a `user-error'."
  (let ((sexp (cider-sexp-at-point 'bounds)))
    (goto-char (or (cadr (or (and sexp
                                  ;; a compound form always ends in a closing
                                  ;; delimiter, whatever reader prefix it carries
                                  (eq (char-syntax (char-before (cadr sexp))) ?\))
                                  sexp)
                             (cider-list-at-point 'bounds)))
                   ;; as above: in whitespace, act on the preceding form
                   (cdr (cider--last-sexp-bounds))
                   (user-error "No call form at point")))))