[elpa] externals/el-search 70634b7 298/332: [el-search] Avoid bytecomp warning windows pop up

[Stefan Monnier]

branch: externals/el-search
commit 70634b7a24550f432b359a6dc52a0e2680dededb
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    [el-search] Avoid bytecomp warning windows pop up
    
    * packages/el-search/el-search.el (el-search--byte-compile): New
    helper, a trivial wrapper around 'byte-compile' binding
    'byte-compile-log-warning-function' to 'ignore'.
    Change all relevant callers of 'byte-compile' to use this function
    instead.
---
 el-search.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/el-search.el b/el-search.el
index dc2a3f8..d9787a4 100644
--- a/el-search.el
+++ b/el-search.el
@@ -811,6 +811,10 @@ nil."
   (let ((message-log-max nil))
     (apply #'message format-string args)))
 
+(defun el-search--byte-compile (form)
+  (let ((byte-compile-log-warning-function #'ignore))
+    (byte-compile form)))
+
 (defun el-search--set-this-command-refresh-message-maybe ()
   (when (eq (setq this-command 'el-search-pattern) last-command)
     (message "%s" el-search--last-message)))
@@ -1232,7 +1236,7 @@ N times."
            (pattern-is-symbol   (and (symbolp pattern)
                                      (not (or (keywordp pattern)
                                               (null pattern))))))
-       (byte-compile
+       (el-search--byte-compile
         `(lambda (,(if pattern-is-catchall '_ expression))
            ,(cond
              (pattern-is-catchall (if result-specified result-expr t))
@@ -2277,7 +2281,7 @@ argument (that should be a string)."
                (lambda (bindings body)
                  (if (null bindings) body
                    `(let ,bindings ,body)))))
-      (byte-compile
+      (el-search--byte-compile
        (let ((string (make-symbol "string")))
          `(lambda (,string)
             ,(wrap-let