Function: majutsu-row--diagnostic-for-current-line

majutsu-row--diagnostic-for-current-line is a natively compiled function defined in majutsu-row.el.

Signature

(majutsu-row--diagnostic-for-current-line)

Documentation

Return a parser diagnostic for the current physical line, or nil.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-row.el
;;; Wash

(defun majutsu-row--diagnostic-for-current-line ()
  "Return a parser diagnostic for the current physical line, or nil."
  (let* ((bol (line-beginning-position))
         (eol (line-end-position))
         (marker (majutsu-row--next-marker-position bol eol)))
    (when marker
      (save-excursion
        (goto-char marker)
        (pcase-let ((`(,kind . ,_token)
                     (or (majutsu-row--event-at-point)
                         (cons 'unknown majutsu-row-record-marker))))
          (when-let* ((message (pcase kind
                                 ('row "Incomplete row record")
                                 (_ "Unknown row protocol marker"))))
            (list :position marker
                  :message message)))))))