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