emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master d2bd995: * lisp/mail/footnote.el: Avoid regexp-opt-


From: Stefan Monnier
Subject: [Emacs-diffs] master d2bd995: * lisp/mail/footnote.el: Avoid regexp-opt-charset, which is not autoloaded.
Date: Thu, 9 May 2019 10:32:30 -0400 (EDT)

branch: master
commit d2bd9958bd7cf7d0e8fd7e405173cd62e979d251
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/mail/footnote.el: Avoid regexp-opt-charset, which is not autoloaded.
    
    (footnote-hebrew-numeric-regex): Use rx-to-string instead.
---
 lisp/mail/footnote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 327eda1..a1bbf73 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -348,7 +348,7 @@ Use Unicode characters for footnoting."
 (defconst footnote-hebrew-numeric-regex
   (let ((numchars (string-to-list
                   (apply #'concat (apply #'append footnote-hebrew-numeric)))))
-    (concat (regexp-opt-charset (cons ?' numchars)) "+")))
+    (rx-to-string `(1+ (in ?' ,@numchars)))))
 ;; (defconst footnote-hebrew-numeric-regex 
"\\([אבגדהוזחט]'\\)?\\(ת\\)?\\(ת\\)?\\([קרשת]\\)?\\([טיכלמנסעפצ]\\)?\\([אבגדהוזחט]\\)?")
 
 (defun footnote--hebrew-numeric (n)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]