From: Martin Rudalics <rudalics@gmx.at>
Date: Fri, 13 Apr 2007 05:53:27 +0000 (+0000)
Subject: (footnote-latin-string): New variable.
X-Git-Tag: emacs-pretest-22.0.98~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dedecfd696051df3b709a20361b9a152ef4444a4;p=emacs.git

(footnote-latin-string): New variable.
(footnote-latin-regexp): Redefined as regexp alternative.
(Footnote-latin): Use footnote-latin-string instead of
footnote-latin-regexp.
---

diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 2dd2e7af175..9e3a375c50d 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -267,14 +267,17 @@ Wrapping around the alphabet implies successive repetitions of letters."
 
 ;; Latin-1
 
-(defconst footnote-latin-regexp "¹²³ºª§¶"
+(defconst footnote-latin-string "¹²³ºª§¶"
+  "String of Latin-1 footnoting characters.")
+
+(defconst footnote-latin-regexp (concat "[" footnote-latin-string "]")
   "Regexp for Latin-1 footnoting characters.")
 
 (defun Footnote-latin (n)
   "Latin-1 footnote style.
 Use a range of Latin-1 non-ASCII characters for footnoting."
-  (string (aref footnote-latin-regexp
-		(mod (1- n) (length footnote-latin-regexp)))))
+  (string (aref footnote-latin-string
+		(mod (1- n) (length footnote-latin-string)))))
 
 ;;; list of all footnote styles
 (defvar footnote-style-alist
@@ -654,7 +657,7 @@ delete the footnote with that number."
       (while (< i notes)
 	(setq alist-ptr (nth i footnote-pointer-marker-alist))
 	(setq alist-txt (nth i footnote-text-marker-alist))
-	(unless (eq (1+ i) (car alist-ptr))
+	(unless (= (1+ i) (car alist-ptr))
 	  (Footnote-renumber (car alist-ptr) (1+ i) alist-ptr alist-txt))
 	(setq i (1+ i))))))