(footnote-latin-string): New variable.

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

1 files changed, 7 insertions, 4 deletions

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