[elpa] externals/el-search 6292dcc 130/332: Fix disregarding compressed elisp files

[Stefan Monnier]

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

    Fix disregarding compressed elisp files
---
 el-search.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index e544be6..f5fe8cc 100644
--- a/el-search.el
+++ b/el-search.el
@@ -827,7 +827,7 @@ MESSAGE are used to construct the error message."
              type arg))))
 
 (defun el-search--elisp-file-name-p (file)
-  (and (string-match-p "\\.el\\'" file)
+  (and (string-match-p "\\.el\\(\\.\\(gz\\|Z\\)\\)?\\'" file)
        (file-exists-p file)
        (not (file-directory-p file))))
 
@@ -948,7 +948,8 @@ non-nil else."
                  (its-usable (equal (nth 5 (file-attributes file-name)) (car 
hash-entry))))
             (cdr hash-entry)
           (let ((atom-list (with-temp-buffer
-                             (insert-file-contents file-name-or-buffer)
+                             (let ((inhibit-message t))
+                               (insert-file-contents file-name-or-buffer))
                              (funcall get-atoms))))
             (puthash file-name
                      (cons (nth 5 (file-attributes file-name)) atom-list)
@@ -1017,7 +1018,9 @@ non-nil else."
         (if (bufferp next)
             (setq buffer next)
           (setf (el-search-head-file head) next)
-          (setq buffer (let ((warning-minimum-level :error)) 
(find-file-noselect next))))
+          (setq buffer (let ((warning-minimum-level :error)
+                             (inhibit-message t))
+                         (find-file-noselect next))))
         (unless (memq buffer buffer-list-before)
           (with-current-buffer buffer
             (setq-local el-search--temp-buffer-flag t)))