Function: cider--debug-position-for-code

cider--debug-position-for-code is a byte-compiled function defined in cider-debug.el.

Signature

(cider--debug-position-for-code CODE)

Documentation

Return non-nil if point is roughly before CODE.

This might move point one line above.

A nil CODE counts as a match: enlighten events carry only the form's line/column (not its source text), so there is nothing to verify against and the position must be trusted as-is.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-debug.el
(defun cider--debug-position-for-code (code)
  "Return non-nil if point is roughly before CODE.
This might move point one line above.

A nil CODE counts as a match: enlighten events carry only the form's
line/column (not its source text), so there is nothing to verify against
and the position must be trusted as-is."
  (or (null code)
      (looking-at-p (regexp-quote code))
      (let ((trimmed (regexp-quote (cider--debug-trim-code code))))
        (or (looking-at-p trimmed)
            ;; If this is a fake #dbg injected by `C-u
            ;; C-M-x', then the sexp we want is actually on
            ;; the line above.
            (progn (forward-line -1)
                   (looking-at-p trimmed))))))