minor bug in footnote.el

[Eduard Wiebe]

 Hi all,

The mini bug occurs by switching footnote marks of more than one
characters from roman-lower to roman-upper style.

For example try this:

(progn
  (point-max)
  (newline 2)
  (footnote-mode 1)
  (Footnote-set-style 'roman-lower)
  (insert "eins")
  (Footnote-add-footnote)
  (insert "must I after cyclic style change")
  (Footnote-back-to-message)
  (insert " zwei")
  (Footnote-add-footnote)
  (insert "must II after cyclic style change")
  (Footnote-back-to-message)
  (Footnote-cycle-style)
  (footnote-mode -1))

My simple patch follows

--- footnote.el 26 Jul 2007 07:27:12 +0200      1.20
+++ footnote.el 17 Oct 2007 22:09:06 +0200      
@@ -344,7 +344,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
@@ -360,7 +360,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

GNU Emacs 22.1.1 (i386-pc-freebsd, GTK+ Version 2.10.14)
-- 
Eduard Wiebe