[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
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)))