Function: org-footnote-at-reference-p

org-footnote-at-reference-p is a byte-compiled function defined in org-footnote.el.gz.

Signature

(org-footnote-at-reference-p)

Documentation

Non-nil if point is at a footnote reference.

If so, return a list containing its label, beginning and ending positions, and the definition, when inline.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-footnote.el.gz
(defun org-footnote-at-reference-p ()
  "Non-nil if point is at a footnote reference.
If so, return a list containing its label, beginning and ending
positions, and the definition, when inline."
  (let ((reference (org-element-context)))
    (when (eq 'footnote-reference (org-element-type reference))
      (let ((end (save-excursion
		   (goto-char (org-element-property :end reference))
		   (skip-chars-backward " \t")
		   (point))))
	(when (< (point) end)
	  (list (org-element-property :label reference)
		(org-element-property :begin reference)
		end
		(and (eq 'inline (org-element-property :type reference))
		     (buffer-substring-no-properties
		      (org-element-property :contents-begin reference)
		      (org-element-property :contents-end
					    reference)))))))))