diff options
| author | Stefan Monnier | 2019-05-09 10:32:25 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-05-09 10:32:25 -0400 |
| commit | d2bd9958bd7cf7d0e8fd7e405173cd62e979d251 (patch) | |
| tree | f84a2ff46ec99d93683d739a28e6f4b3e64075d4 | |
| parent | eb1698c54ab2e907d4912db46b8a3da9490d0482 (diff) | |
| download | emacs-d2bd9958bd7cf7d0e8fd7e405173cd62e979d251.tar.gz emacs-d2bd9958bd7cf7d0e8fd7e405173cd62e979d251.zip | |
* 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." | |||
| 348 | (defconst footnote-hebrew-numeric-regex | 348 | (defconst footnote-hebrew-numeric-regex |
| 349 | (let ((numchars (string-to-list | 349 | (let ((numchars (string-to-list |
| 350 | (apply #'concat (apply #'append footnote-hebrew-numeric))))) | 350 | (apply #'concat (apply #'append footnote-hebrew-numeric))))) |
| 351 | (concat (regexp-opt-charset (cons ?' numchars)) "+"))) | 351 | (rx-to-string `(1+ (in ?' ,@numchars))))) |
| 352 | ;; (defconst footnote-hebrew-numeric-regex "\\([אבגדהוזחט]'\\)?\\(ת\\)?\\(ת\\)?\\([קרשת]\\)?\\([טיכלמנסעפצ]\\)?\\([אבגדהוזחט]\\)?") | 352 | ;; (defconst footnote-hebrew-numeric-regex "\\([אבגדהוזחט]'\\)?\\(ת\\)?\\(ת\\)?\\([קרשת]\\)?\\([טיכלמנסעפצ]\\)?\\([אבגדהוזחט]\\)?") |
| 353 | 353 | ||
| 354 | (defun footnote--hebrew-numeric (n) | 354 | (defun footnote--hebrew-numeric (n) |