From 46983d211fe178e85244a5f6a08eb09a0bf4f8ad Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 3 Aug 2023 09:57:33 +0200 Subject: [PATCH] ; * lisp/mail/footnote.el (footnote-hebrew-numeric-regex): dedup rx This is a cosmetic change that silences a new Relint complaint; the resulting regexp remains unchanged. --- lisp/mail/footnote.el | 7 ++++--- 1 file 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." -- 2.39.2