diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-08-13 10:36:21 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-08-13 10:38:29 +0200 |
| commit | 163e7dac5f2f9e1154ee5ae76fee9e4602a9b7cb (patch) | |
| tree | b41e284b7c87f177faecd264bb384b9e468c09ea /lisp/emacs-lisp | |
| parent | 08bf8533bb1d0e4a07e644799d25e4551024126f (diff) | |
| download | emacs-163e7dac5f2f9e1154ee5ae76fee9e4602a9b7cb.tar.gz emacs-163e7dac5f2f9e1154ee5ae76fee9e4602a9b7cb.tar.bz2 emacs-163e7dac5f2f9e1154ee5ae76fee9e4602a9b7cb.zip | |
; * lisp/emacs-lisp/rx.el: slight modernisation of internal rx usage
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/rx.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index aa1174ea08b..afc9826eefa 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -26,7 +26,7 @@ ;; The translation to string regexp is done by a macro and does not ;; incur any extra processing during run time. Example: ;; -;; (rx bos (or (not (any "^")) +;; (rx bos (or (not "^") ;; (seq "^" (or " *" "[")))) ;; ;; => "\\`\\(?:[^^]\\|\\^\\(?: \\*\\|\\[\\)\\)" @@ -616,7 +616,7 @@ classes." ;; Empty set (or any char). ((and (null intervals) (null classes)) (if negated - (rx--translate-symbol 'anything) + (rx--translate-symbol 'anychar) (rx--empty))) ;; More than one character, or at least one class. @@ -1095,15 +1095,15 @@ Return (REGEXP . PRECEDENCE)." (opt "^") (opt "]") (* (or (seq "[:" (+ (any "a-z")) ":]") - (not (any "]")))) + (not "]"))) "]") (not (any "*+?^$[\\")) (seq "\\" - (or anything - (seq (any "sScC_") anything) + (or anychar + (seq (any "sScC_") anychar) (seq "(" - (* (or (not (any "\\")) - (seq "\\" (not (any ")"))))) + (* (or (not "\\") + (seq "\\" (not ")")))) "\\)")))) eos) t))) |