[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d2bd995: * lisp/mail/footnote.el: Avoid regexp-opt-charset, which is not autoloaded.,
Stefan Monnier <=