Function: majutsu-text-property-near-point

majutsu-text-property-near-point is a natively compiled function defined in majutsu-base.el.

Signature

(majutsu-text-property-near-point PROPERTY &optional POS)

Documentation

Return PROPERTY near POS, preferring the previous character.

POS defaults to magit-point, so context-menu invocations inspect the clicked position.

Source Code

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

(defun majutsu-text-property-near-point (property &optional pos)
  "Return PROPERTY near POS, preferring the previous character.
POS defaults to `magit-point', so context-menu invocations inspect the
clicked position."
  (let ((pos (or pos (magit-point))))
    (or (and (> pos (point-min))
             (get-text-property (1- pos) property))
        (get-text-property pos property))))