Function: majutsu-row--column-at-point

majutsu-row--column-at-point is a natively compiled function defined in majutsu-row.el.

Signature

(majutsu-row--column-at-point COMPILED)

Documentation

Return compiled row column described by text properties at point.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-row.el
(defun majutsu-row--column-at-point (compiled)
  "Return compiled row column described by text properties at point."
  (let ((instance (majutsu-text-property-near-point 'majutsu-row-column))
        (field (majutsu-text-property-near-point 'majutsu-row-field))
        (module (majutsu-text-property-near-point 'majutsu-row-module)))
    (or (and instance
             (majutsu-row-column-by-instance compiled instance))
        (and field module
             (seq-find (lambda (candidate)
                         (and (eq (plist-get candidate :field) field)
                              (eq (plist-get candidate :module) module)))
                       (plist-get compiled :columns))))))