Function: cider--anchored-search-suppressed-forms-internal

cider--anchored-search-suppressed-forms-internal is a byte-compiled function defined in cider-mode.el.

Signature

(cider--anchored-search-suppressed-forms-internal REPL-TYPES LIMIT)

Documentation

Helper function for `cider--anchored-search-suppressed-forms`.

REPL-TYPES is a list of strings repl-type strings. LIMIT is the same as the LIMIT in `cider--anchored-search-suppressed-forms`

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-mode.el
(defun cider--anchored-search-suppressed-forms-internal (repl-types limit)
  "Helper function for `cider--anchored-search-suppressed-forms`.
REPL-TYPES is a list of strings repl-type strings.  LIMIT is the same as
the LIMIT in `cider--anchored-search-suppressed-forms`"
  (when (= (length repl-types) 1)
    (let ((type (car repl-types))
          (expr (read (current-buffer)))
          (start (save-excursion (backward-sexp) (point))))
      (when (<= (point) limit)
        (forward-sexp)
        (if (not (string-equal (symbol-name expr) (concat ":" type)))
            (ignore-errors
              (cl-assert (<= (point) limit))
              (let ((md (match-data nil cider--reader-conditionals-match-data)))
                (setf (nth 0 md) start)
                (setf (nth 1 md) (point))
                (set-match-data md)
                t))
          (cider--anchored-search-suppressed-forms-internal repl-types limit))))))