branch: externals/consult
commit 4c68ceb7d97eafd7b620e40cb3c8b306f71d628a
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Formatting
---
consult.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/consult.el b/consult.el
index 9cfc21a..f3d287c 100644
--- a/consult.el
+++ b/consult.el
@@ -576,17 +576,16 @@ This function only changes the escaping of parentheses,
braces and pipes."
(defun consult--compile-regexp (str type)
"Compile STR to a list of regexps of TYPE."
- (setq str (split-string str nil 'omit-nulls))
- (mapcar (lambda (x) (consult--convert-regexp x type)) str))
+ (mapcar (lambda (x) (consult--convert-regexp x type))
+ (split-string str nil 'omit-nulls)))
(defun consult--join-regexp (str type)
"Compile STR to a regexp joined from multiple regexps of TYPE."
(setq str (consult--compile-regexp str type))
(pcase-exhaustive type
((or 'basic 'emacs 'extended) (string-join str ".*"))
- ('pcre (concat "^" (mapconcat
- (lambda (x) (format "(?=.*%s)" x))
- str "")))))
+ ('pcre (concat "^" (mapconcat (lambda (x) (format "(?=.*%s)" x))
+ str "")))))
(defun consult--valid-regexp-p (re)
"Return t if regexp RE is valid."
