Translate backslash-saturated regexp to rx
* lisp/minibuffer.el (minibuffer--regexp-propertize): The original regexp had 83 backslashes in 147 characters which may be some kind of record. This transformation cuts it down to 6, and the generated regexp string is about 14 % shorter.
This commit is contained in:
parent
7c55bf59bb
commit
e95d8562c0
1 changed files with 8 additions and 2 deletions
|
@ -4676,8 +4676,14 @@ and `blink-matching-paren' more user-friendly."
|
|||
(remove-text-properties (point-min) (point-max) '(syntax-table nil))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward
|
||||
"\\(\\\\\\\\\\)\\|\\(?:\\(?:\\\\\\)\\(?:\\([(){}]\\)\\|\\(\\[\\)\\|\\(\\]\\)\\)\\)\
|
||||
\\|\\(\\[:[a-zA-Z]+:\\]\\)\\|\\(\\[\\)\\|\\(\\]\\)\\|\\([(){}]\\)"
|
||||
(rx (| (group "\\\\")
|
||||
(: "\\" (| (group (in "(){}"))
|
||||
(group "[")
|
||||
(group "]")))
|
||||
(group "[:" (+ (in "A-Za-z")) ":]")
|
||||
(group "[")
|
||||
(group "]")
|
||||
(group (in "(){}"))))
|
||||
(point-max) 'noerror)
|
||||
(cond
|
||||
((match-beginning 1)) ; \\, skip
|
||||
|
|
Loading…
Add table
Reference in a new issue