Function: cider-history-preview-overlay-setup

cider-history-preview-overlay-setup is a byte-compiled function defined in cider-history.el.

Signature

(cider-history-preview-overlay-setup ORIG-BUF)

Documentation

Setup the preview overlay in ORIG-BUF.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-history.el
(defun cider-history-preview-overlay-setup (orig-buf)
  "Setup the preview overlay in ORIG-BUF."
  (when cider-history-show-preview
    (with-current-buffer orig-buf
      (let* ((will-replace (region-active-p))
             (start (if will-replace
                        (min (point) (mark))
                      (point)))
             (end (if will-replace
                      (max (point) (mark))
                    (point))))
        (cider-history-clear-preview)
        (setq cider-history-preview-overlay
              (make-overlay start end orig-buf))
        (overlay-put cider-history-preview-overlay
                     'invisible t)))))