Function: consult-compile--state

consult-compile--state is a byte-compiled function defined in consult-compile.el.

Signature

(consult-compile--state)

Documentation

Like consult--jump-state, also setting the current compilation error.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20260805.1130/consult-compile.el
(defun consult-compile--state ()
  "Like `consult--jump-state', also setting the current compilation error."
  (let ((jump (consult--jump-state)))
    (lambda (action marker)
      (let ((pos (consult-compile--lookup marker)))
        (when-let* ((buffer (and (eq action 'return)
                                 marker
                                 (marker-buffer marker))))
          (with-current-buffer buffer
            (setq compilation-current-error marker
                  overlay-arrow-position marker)))
        (funcall jump action pos)))))