[nongnu] elpa/popup 47008e1 135/184: Allow the user to specify a custom function to build the regexp in isearch

[ELPA Syncer]

branch: elpa/popup
commit 47008e130c460336ff074e60b3b5f308cd4aac8f
Author: Samuel Loury <konubinixweb@gmail.com>
Commit: Samuel Loury <konubinixweb@gmail.com>

    Allow the user to specify a custom function to build the regexp in isearch
    
    If the user likes to use helm or ivy style of matching candidates,
    they can provide their own regexp builer.
    
    For instance, in case you like to 'foo bar' to match 'foo.+bar',
    you can provide a function that replaces spaces by '.+'.
---
 popup.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/popup.el b/popup.el
index 392833b..bad8404 100644
--- a/popup.el
+++ b/popup.el
@@ -887,13 +887,18 @@ Pages up through POPUP."
 (defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help
   "Function used for showing quick help by `popup-menu*'.")
 
+(defcustom popup-isearch-regexp-builder-function 'regexp-quote
+  "Function used to construct a regexp from a pattern. You may for instance
+  provide a function that replaces spaces by '.+' if you like helm or ivy style
+  of completion.")
+
 (defsubst popup-isearch-char-p (char)
   (and (integerp char)
        (<= 32 char)
        (<= char 126)))
 
 (defun popup-isearch-filter-list (pattern list)
-  (cl-loop with regexp = (regexp-quote pattern)
+  (cl-loop with regexp = (funcall popup-isearch-regexp-builder-function 
pattern)
            for item in list
            do
            (unless (stringp item)