diff options
Diffstat (limited to 'lisp/mail/footnote.el')
-rw-r--r-- | lisp/mail/footnote.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index 79878e6676d..dda099ac013 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -347,10 +347,11 @@ Use Unicode characters for footnoting." ("ק" "ר" "ש" "ת" "תק" "תר" "תש" "תת" "תתק"))) (defconst footnote-hebrew-numeric-regex - (let ((numchars (string-to-list - (apply #'concat (apply #'append footnote-hebrew-numeric))))) + (let ((numchars + (delete-dups + (string-to-list + (apply #'concat (apply #'append footnote-hebrew-numeric)))))) (rx-to-string `(1+ (in ?' ,@numchars))))) -;; (defconst footnote-hebrew-numeric-regex "\\([אבגדהוזחט]'\\)?\\(ת\\)?\\(ת\\)?\\([קרשת]\\)?\\([טיכלמנסעפצ]\\)?\\([אבגדהוזחט]\\)?") (defun footnote--hebrew-numeric (n) "Supports 9999 footnotes, then rolls over." |