branch: master
commit b4b1c3df7d7e3dd055e68fc9003861c11343b7f6
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
Use jka-compr-load-suffixes instead of hardcoded suffixes
---
packages/el-search/el-search.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 1fdf954..e2cbfaa 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -827,7 +827,10 @@ MESSAGE are used to construct the error message."
type arg))))
(defun el-search--elisp-file-name-p (file)
- (and (string-match-p "\\.el\\(\\.\\(gz\\|Z\\)\\)?\\'" file)
+ (and (string-match-p (concat "\\.el\\("
+ (mapconcat #'identity jka-compr-load-suffixes
"\\|")
+ "\\)?\\'")
+ file)
(file-exists-p file)
(not (file-directory-p file))))
