[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 1093871 1/4: Fix disregarding compressed elisp files

From: Michael Heerdegen
Subject: [elpa] master 1093871 1/4: Fix disregarding compressed elisp files
Date: Tue, 20 Dec 2016 06:51:02 +0000 (UTC)

branch: master
commit 1093871b3060d7bbc46d26da7edc578b50e9a63e
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

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

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index e544be6..f5fe8cc 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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 
             (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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]