[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 163e7dac5f2: ; * lisp/emacs-lisp/rx.el: slight modernisation of i
From: |
Mattias Engdegård |
Subject: |
master 163e7dac5f2: ; * lisp/emacs-lisp/rx.el: slight modernisation of internal rx usage |
Date: |
Sun, 13 Aug 2023 04:55:10 -0400 (EDT) |
branch: master
commit 163e7dac5f2f9e1154ee5ae76fee9e4602a9b7cb
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * lisp/emacs-lisp/rx.el: slight modernisation of internal rx usage
---
lisp/emacs-lisp/rx.el | 14 +++++++-------
1 file 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 163e7dac5f2: ; * lisp/emacs-lisp/rx.el: slight modernisation of internal rx usage,
Mattias Engdegård <=