[elpa] master 3af75cf 364/399: swiper.el (swiper--positive-regexps): Extract

[Oleh Krehel]

branch: master
commit 3af75cf1ff2a6b6110baf103f2cda8e9f44f6e1e
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    swiper.el (swiper--positive-regexps): Extract
---
 swiper.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/swiper.el b/swiper.el
index cf4f41a..c2caeb2 100644
--- a/swiper.el
+++ b/swiper.el
@@ -852,16 +852,19 @@ the face, window and priority of the overlay."
   (or (display-graphic-p)
       (not recenter-redisplay)))
 
+(defun swiper--positive-regexps (str)
+  (let ((regexp-or-regexps
+         (funcall ivy--regex-function str)))
+    (if (listp regexp-or-regexps)
+        (mapcar #'car (cl-remove-if-not #'cdr regexp-or-regexps))
+      (list regexp-or-regexps))))
+
 (defun swiper--update-input-ivy ()
   "Called when `ivy' input is updated."
   (with-ivy-window
     (swiper--cleanup)
     (when (> (length (ivy-state-current ivy-last)) 0)
-      (let* ((regexp-or-regexps (funcall ivy--regex-function ivy-text))
-             (regexps
-              (if (listp regexp-or-regexps)
-                  (mapcar #'car (cl-remove-if-not #'cdr regexp-or-regexps))
-                (list regexp-or-regexps))))
+      (let ((regexps (swiper--positive-regexps ivy-text)))
         (dolist (re regexps)
           (let* ((re (replace-regexp-in-string
                       "    " "\t"