Function: cider--make-fringe-overlay

cider--make-fringe-overlay is a byte-compiled function defined in cider-overlays.el.

Signature

(cider--make-fringe-overlay &optional END)

Documentation

Place an eval indicator at the fringe before a sexp.

END is the position where the sexp ends, and defaults to point.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-overlays.el
(defun cider--make-fringe-overlay (&optional end)
  "Place an eval indicator at the fringe before a sexp.
END is the position where the sexp ends, and defaults to point."
  (when cider-use-fringe-indicators
    (with-current-buffer (if (markerp end)
                             (marker-buffer end)
                           (current-buffer))
      (save-excursion
        (if end
            (goto-char end)
          (setq end (point)))
        (clojure-forward-logical-sexp -1)
        ;; Create the green-circle overlay.
        (cider--make-overlay (point) end 'cider-fringe-indicator
                             'before-string cider--fringe-overlay-good)))))