diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-09 10:32:25 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-09 10:32:25 -0400 |
| commit | d2bd9958bd7cf7d0e8fd7e405173cd62e979d251 (patch) | |
| tree | f84a2ff46ec99d93683d739a28e6f4b3e64075d4 | |
| parent | eb1698c54ab2e907d4912db46b8a3da9490d0482 (diff) | |
| download | emacs-d2bd9958bd7cf7d0e8fd7e405173cd62e979d251.tar.gz | |
* lisp/mail/footnote.el: Avoid regexp-opt-charset, which is not autoloaded.
(footnote-hebrew-numeric-regex): Use rx-to-string instead.
| -rw-r--r-- | lisp/mail/footnote.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index 327eda11dc5..a1bbf7369b2 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) |