Mercurial > emacs
changeset 77164:0d019d25db47
(footnote-latin-string): New variable.
(footnote-latin-regexp): Redefined as regexp alternative.
(Footnote-latin): Use footnote-latin-string instead of
footnote-latin-regexp.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Fri, 13 Apr 2007 05:53:27 +0000 |
| parents | 6e2b57342d25 |
| children | 4ae89136374d |
| files | lisp/mail/footnote.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/footnote.el Fri Apr 13 04:00:00 2007 +0000 +++ b/lisp/mail/footnote.el Fri Apr 13 05:53:27 2007 +0000 @@ -267,14 +267,17 @@ ;; 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 @@ (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))))))