mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/mail/footnote.el: Avoid regexp-opt-charset, which is not autoloaded.

Browse source 
(footnote-hebrew-numeric-regex): Use rx-to-string instead.
This commit is contained in:
Stefan Monnier 2019-05-09 10:32:25 -04:00
parent eb1698c54a
commit d2bd9958bd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/footnote.el
View file

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