From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 3 Aug 2023 07:57:33 +0000 (+0200)
Subject: ; * lisp/mail/footnote.el (footnote-hebrew-numeric-regex): dedup rx
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46983d211fe178e85244a5f6a08eb09a0bf4f8ad;p=emacs.git

; * 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.
---

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."