Function: footnote--text-under-cursor

footnote--text-under-cursor is a byte-compiled function defined in footnote.el.gz.

Signature

(footnote--text-under-cursor)

Documentation

Return the number of the current footnote if in footnote text.

Return nil if the cursor is not positioned over the text of a footnote.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/footnote.el.gz
(defun footnote--text-under-cursor ()
  "Return the number of the current footnote if in footnote text.
Return nil if the cursor is not positioned over the text of
a footnote."
  (when (<= (point) (footnote--get-area-point-max))
    (let ((result nil))
      (pcase-dolist (`(,fn ,text . ,_) footnote--markers-alist)
        (if (<= text (point))
            (setq result fn)))
      result)))