[Emacs-diffs] Changes to emacs/lisp/mail/footnote.el

[Miles Bader]

Index: emacs/lisp/mail/footnote.el
diff -c emacs/lisp/mail/footnote.el:1.5 emacs/lisp/mail/footnote.el:1.6
*** emacs/lisp/mail/footnote.el:1.5     Thu Dec 20 13:21:57 2001
--- emacs/lisp/mail/footnote.el Tue Feb  4 08:14:00 2003
***************
*** 161,167 ****
        (setq rc (concat rc chr))
        (setq rep (1- rep)))
      rc))
!   
  ;;; ENGLISH LOWER
  (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz"
    "Lower case English alphabet.")
--- 161,167 ----
        (setq rc (concat rc chr))
        (setq rep (1- rep)))
      rc))
! 
  ;;; ENGLISH LOWER
  (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz"
    "Lower case English alphabet.")
***************
*** 482,488 ****
    (Footnote-goto-char-point-max)
    (if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)
        (save-restriction
!       (when footnote-narrow-to-footnotes-when-editing 
          (Footnote-narrow-to-footnotes))
        (Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now)
        ;; (message "Inserting footnote %d" arg)
--- 482,488 ----
    (Footnote-goto-char-point-max)
    (if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)
        (save-restriction
!       (when footnote-narrow-to-footnotes-when-editing
          (Footnote-narrow-to-footnotes))
        (Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now)
        ;; (message "Inserting footnote %d" arg)
***************
*** 554,562 ****
          (unless rc
            (setq rc (car alist-ptr)))
          (save-excursion
!           (message "Renumbering from %s to %s" 
                     (Footnote-index-to-string (car alist-ptr))
!                    (Footnote-index-to-string 
                      (1+ (car alist-ptr))))
            (Footnote-renumber (car alist-ptr)
                               (1+ (car alist-ptr))
--- 554,562 ----
          (unless rc
            (setq rc (car alist-ptr)))
          (save-excursion
!           (message "Renumbering from %s to %s"
                     (Footnote-index-to-string (car alist-ptr))
!                    (Footnote-index-to-string
                      (1+ (car alist-ptr))))
            (Footnote-renumber (car alist-ptr)
                               (1+ (car alist-ptr))