Function: cider-repl-history-add-overlays-for

cider-repl-history-add-overlays-for is a macro defined in cider-repl-history.el.

Signature

(cider-repl-history-add-overlays-for ITEM &rest BODY)

Documentation

Add overlays for ITEM, and execute BODY.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-repl-history.el
(defmacro cider-repl-history-add-overlays-for (item &rest body)
  "Add overlays for ITEM, and execute BODY."
  (let ((beg (gensym "cider-repl-history-add-overlays-"))
        (end (gensym "cider-repl-history-add-overlays-")))
    `(let ((,beg (point))
           (,end
            (progn
              ,@body
              (point))))
       (let ((o (make-overlay ,beg ,end)))
         (overlay-put o 'cider-repl-history-target ,item)
         (overlay-put o 'mouse-face 'highlight)))))