Function: cider-history-add-overlays-for

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

Signature

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

Documentation

Add overlays for ITEM, and execute BODY.

Source Code

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