/[emacs]/emacs/lisp/mail/footnote.el
ViewVC logotype

Diff of /emacs/lisp/mail/footnote.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.5 by pj, Thu Dec 20 18:21:57 2001 UTC
# Line 513  styles." Line 513  styles."
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
# Line 536  a footnote." Line 536  a footnote."
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    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26