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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/12/28 22:26:14

Index: lisp/mail/footnote.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/footnote.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- lisp/mail/footnote.el       1 Nov 2007 03:40:50 -0000       1.21
+++ lisp/mail/footnote.el       28 Dec 2007 22:26:11 -0000      1.22
@@ -327,7 +327,8 @@
 (defun Footnote-current-regexp ()
   "Return the regexp of the index of the current style."
   (concat (nth 2 (or (assq footnote-style footnote-style-alist)
-                    (nth 0 footnote-style-alist))) "*"))
+                    (nth 0 footnote-style-alist)))
+         "*"))
 
 (defun Footnote-refresh-footnotes (&optional index-regexp)
   "Redraw all footnotes.
@@ -345,7 +346,7 @@
          (search-backward footnote-start-tag nil t)
          (when (looking-at (concat
                             (regexp-quote footnote-start-tag)
-                            "\\(" index-regexp "\\)"
+                            "\\(" index-regexp "+\\)"
                             (regexp-quote footnote-end-tag)))
            (replace-match (concat
                            footnote-start-tag
@@ -361,7 +362,7 @@
        (goto-char (cdr alist))
        (when (looking-at (concat
                           (regexp-quote footnote-start-tag)
-                          "\\(" index-regexp "\\)"
+                          "\\(" index-regexp "+\\)"
                           (regexp-quote footnote-end-tag)))
          (replace-match (concat
                          footnote-start-tag