diff options
| author | Po Lu <luangruo@yahoo.com> | 2023-08-03 19:50:23 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2023-08-03 19:50:23 +0800 |
| commit | 1c429b7fef2e472cbd1dd8e8f237179ed6616975 (patch) | |
| tree | 0f751bf7d7e60756a3ddd7ce171d4577cb97fc6f /lisp/mail | |
| parent | 6d44d08e044dd2a74c6ac65cedb32a8f7a4f82de (diff) | |
| parent | 588a0363d9a3ce6d678618ad545f7a8f9af27880 (diff) | |
| download | emacs-1c429b7fef2e472cbd1dd8e8f237179ed6616975.tar.gz | |
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'lisp/mail')
| -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 b88fd405da8..4b2770ee3a1 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." |