Mercurial > emacs
changeset 85848:2fa69d7fdc0c
(footnote-numeric-regexp)
(footnote-english-upper-regexp, footnote-english-lower-regexp)
(footnote-roman-lower-regexp, footnote-roman-upper-regexp):
Match multi-character footnotes.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 01 Nov 2007 03:40:50 +0000 |
| parents | baa28899f76f |
| children | 4f5de444e723 |
| files | lisp/mail/footnote.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/footnote.el Thu Nov 01 03:18:42 2007 +0000 +++ b/lisp/mail/footnote.el Thu Nov 01 03:40:50 2007 +0000 @@ -139,7 +139,7 @@ ;;; Default styles ;;; NUMERIC -(defconst footnote-numeric-regexp "[0-9]" +(defconst footnote-numeric-regexp "[0-9]+" "Regexp for digits.") (defun Footnote-numeric (n) @@ -151,7 +151,7 @@ (defconst footnote-english-upper "ABCDEFGHIJKLMNOPQRSTUVWXYZ" "Upper case English alphabet.") -(defconst footnote-english-upper-regexp "[A-Z]" +(defconst footnote-english-upper-regexp "[A-Z]+" "Regexp for upper case English alphabet.") (defun Footnote-english-upper (n) @@ -170,7 +170,7 @@ (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz" "Lower case English alphabet.") -(defconst footnote-english-lower-regexp "[a-z]" +(defconst footnote-english-lower-regexp "[a-z]+" "Regexp of lower case English alphabet.") (defun Footnote-english-lower (n) @@ -191,7 +191,7 @@ (50 . "l") (100 . "c") (500 . "d") (1000 . "m")) "List of roman numerals with their values.") -(defconst footnote-roman-lower-regexp "[ivxlcdm]" +(defconst footnote-roman-lower-regexp "[ivxlcdm]+" "Regexp of roman numerals.") (defun Footnote-roman-lower (n) @@ -204,7 +204,7 @@ (50 . "L") (100 . "C") (500 . "D") (1000 . "M")) "List of roman numerals with their values.") -(defconst footnote-roman-upper-regexp "[IVXLCDM]" +(defconst footnote-roman-upper-regexp "[IVXLCDM]+" "Regexp of roman numerals. Not complete") (defun Footnote-roman-upper (n) @@ -270,6 +270,7 @@ (defconst footnote-latin-string "¹²³ºª§¶" "String of Latin-1 footnoting characters.") +;; Note not [...]+, because this style cycles. (defconst footnote-latin-regexp (concat "[" footnote-latin-string "]") "Regexp for Latin-1 footnoting characters.")