/[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.5 by pj, Thu Dec 20 18:21:57 2001 UTC revision 1.5.4.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 161  Wrapping around the alphabet implies suc Line 161  Wrapping around the alphabet implies suc
161        (setq rc (concat rc chr))        (setq rc (concat rc chr))
162        (setq rep (1- rep)))        (setq rep (1- rep)))
163      rc))      rc))
164      
165  ;;; ENGLISH LOWER  ;;; ENGLISH LOWER
166  (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz"  (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz"
167    "Lower case English alphabet.")    "Lower case English alphabet.")
# Line 482  styles." Line 482  styles."
482    (Footnote-goto-char-point-max)    (Footnote-goto-char-point-max)
483    (if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)    (if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)
484        (save-restriction        (save-restriction
485          (when footnote-narrow-to-footnotes-when-editing          (when footnote-narrow-to-footnotes-when-editing
486            (Footnote-narrow-to-footnotes))            (Footnote-narrow-to-footnotes))
487          (Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now)          (Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now)
488          ;; (message "Inserting footnote %d" arg)          ;; (message "Inserting footnote %d" arg)
# Line 554  Return nil if the cursor is not over a f Line 554  Return nil if the cursor is not over a f
554            (unless rc            (unless rc
555              (setq rc (car alist-ptr)))              (setq rc (car alist-ptr)))
556            (save-excursion            (save-excursion
557              (message "Renumbering from %s to %s"              (message "Renumbering from %s to %s"
558                       (Footnote-index-to-string (car alist-ptr))                       (Footnote-index-to-string (car alist-ptr))
559                       (Footnote-index-to-string                       (Footnote-index-to-string
560                        (1+ (car alist-ptr))))                        (1+ (car alist-ptr))))
561              (Footnote-renumber (car alist-ptr)              (Footnote-renumber (car alist-ptr)
562                                 (1+ (car alist-ptr))                                 (1+ (car alist-ptr))

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

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