address@hidden: minor bug in footnote.el]

[Richard Stallman]

Would someone please DTRT and ack?

------- Start of forwarded message -------
X-Spam-Status: No, score=-0.0 required=5.0 tests=SPF_HELO_PASS,SPF_PASS,
        UNPARSEABLE_RELAY autolearn=failed version=3.1.0
Mail-Followup-To: address@hidden
To: address@hidden
From: Eduard Wiebe <address@hidden>
Date: Wed, 17 Oct 2007 23:19:38 +0200
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Mail-Copies-To: never
Subject: minor bug in footnote.el

- --=-=-=


 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

- --=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=footnote.diff

- --- 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

- --=-=-=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Emacs-devel mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-devel
- --=-=-=--
------- End of forwarded message -------