emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/el-search 2a0773f 134/332: Use jka-compr-load-suffixes


From: Stefan Monnier
Subject: [elpa] externals/el-search 2a0773f 134/332: Use jka-compr-load-suffixes instead of hardcoded suffixes
Date: Tue, 1 Dec 2020 15:48:28 -0500 (EST)

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

    Use jka-compr-load-suffixes instead of hardcoded suffixes
---
 el-search.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/el-search.el b/el-search.el
index 1fdf954..e2cbfaa 100644
--- a/el-search.el
+++ b/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))))
 



reply via email to

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