Function: consult-compile--lookup

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

Signature

(consult-compile--lookup MARKER)

Documentation

Lookup error position given error MARKER.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20260805.1130/consult-compile.el
(defun consult-compile--lookup (marker)
  "Lookup error position given error MARKER."
  (when-let* ((buffer (and marker (marker-buffer marker))))
    (with-current-buffer buffer
      (let ((next-error-highlight nil)
            (compilation-current-error marker)
            (overlay-arrow-position overlay-arrow-position))
        (ignore-errors
          (save-window-excursion
            (compilation-next-error-function 0)
            (point-marker)))))))