[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 8cd64f9: [el-search] Avoid bytecomp warning windows pop up
From: |
Michael Heerdegen |
Subject: |
[elpa] master 8cd64f9: [el-search] Avoid bytecomp warning windows pop up |
Date: |
Fri, 15 Feb 2019 12:57:39 -0500 (EST) |
branch: master
commit 8cd64f9c3cf0b11218f163b1f2290a7c8eaed95e
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
[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.
---
packages/el-search/el-search.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index dc2a3f8..d9787a4 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 8cd64f9: [el-search] Avoid bytecomp warning windows pop up,
Michael Heerdegen <=