[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/footnote.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/footnote.el |
Date: |
Thu, 20 Dec 2001 13:21:57 -0500 |
Index: emacs/lisp/mail/footnote.el
diff -c emacs/lisp/mail/footnote.el:1.4 emacs/lisp/mail/footnote.el:1.5
*** emacs/lisp/mail/footnote.el:1.4 Mon Jul 16 08:22:59 2001
--- emacs/lisp/mail/footnote.el Thu Dec 20 13:21:57 2001
***************
*** 513,519 ****
(defun Footnote-text-under-cursor ()
"Return the number of footnote if in footnote text.
! Nil is returned if the cursor is not positioned over the text of
a footnote."
(when (and (let ((old-point (point)))
(save-excursion
--- 513,519 ----
(defun Footnote-text-under-cursor ()
"Return the number of footnote if in footnote text.
! Return nil if the cursor is not positioned over the text of
a footnote."
(when (and (let ((old-point (point)))
(save-excursion
***************
*** 536,542 ****
(defun Footnote-under-cursor ()
"Return the number of the footnote underneath the cursor.
! Nil is returned if the cursor is not over a footnote."
(or (get-text-property (point) 'footnote-number)
(Footnote-text-under-cursor)))
--- 536,542 ----
(defun Footnote-under-cursor ()
"Return the number of the footnote underneath the cursor.
! Return nil if the cursor is not over a footnote."
(or (get-text-property (point) 'footnote-number)
(Footnote-text-under-cursor)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/footnote.el,
Pavel Janík <=