513 |
|
|
514 |
(defun Footnote-text-under-cursor () |
(defun Footnote-text-under-cursor () |
515 |
"Return the number of footnote if in footnote text. |
"Return the number of footnote if in footnote text. |
516 |
Nil is returned if the cursor is not positioned over the text of |
Return nil if the cursor is not positioned over the text of |
517 |
a footnote." |
a footnote." |
518 |
(when (and (let ((old-point (point))) |
(when (and (let ((old-point (point))) |
519 |
(save-excursion |
(save-excursion |
536 |
|
|
537 |
(defun Footnote-under-cursor () |
(defun Footnote-under-cursor () |
538 |
"Return the number of the footnote underneath the cursor. |
"Return the number of the footnote underneath the cursor. |
539 |
Nil is returned if the cursor is not over a footnote." |
Return nil if the cursor is not over a footnote." |
540 |
(or (get-text-property (point) 'footnote-number) |
(or (get-text-property (point) 'footnote-number) |
541 |
(Footnote-text-under-cursor))) |
(Footnote-text-under-cursor))) |
542 |
|
|