projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
eb1698c
)
* lisp/mail/footnote.el: Avoid regexp-opt-charset, which is not autoloaded.
author
Stefan Monnier
<monnier@iro.umontreal.ca>
Thu, 9 May 2019 14:32:25 +0000
(10:32 -0400)
committer
Stefan Monnier
<monnier@iro.umontreal.ca>
Thu, 9 May 2019 14:32:25 +0000
(10:32 -0400)
(footnote-hebrew-numeric-regex): Use rx-to-string instead.
lisp/mail/footnote.el
patch
|
blob
|
history
diff --git
a/lisp/mail/footnote.el
b/lisp/mail/footnote.el
index 327eda11dc54b22b18a1251794b1063ff4053d70..a1bbf7369b2c8b26b62f36c1684f48ffd7b3a899 100644
(file)
--- 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)