[elpa] externals/consult 4c68ceb 3/4: Formatting

[ELPA Syncer]

branch: externals/consult
commit 4c68ceb7d97eafd7b620e40cb3c8b306f71d628a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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."