minor bug in footnote.el

minor bug in footnote.el

[Eduard Wiebe]

[-- Attachment #1: Type: text/plain, Size: 553 bytes --]


 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

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: footnote.diff --]
[-- Type: text/x-patch, Size: 673 bytes --]

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

[-- Attachment #3: Type: text/plain, Size: 75 bytes --]


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

[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel