branch: master
commit 23d1ac7fcea75496d76014ec8edf070944f9432c
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir
---
packages/el-search/el-search.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 23a7962..2f12bf9 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2662,14 +2662,14 @@ With prefix arg RECURSIVELY non-nil, search
subdirectories recursively."
(defun el-search-emacs-elisp-sources (pattern)
"Search Emacs elisp sources for PATTERN.
This command recursively searches all elisp files under
-\(expand-file-name \"lisp/\" source-directory\)."
+`source-directory'."
(interactive (list (el-search--read-pattern-for-interactive)))
(el-search-setup-search
pattern
(lambda ()
- (el-search-stream-of-directory-files
- (expand-file-name "lisp/" source-directory)
- t))
+ (seq-filter
+ #'el-search--elisp-file-p
+ (el-search-stream-of-directory-files source-directory t)))
(lambda (search) (setf (alist-get 'description (el-search-object-properties
search))
"Search the Emacs Elisp sources"))))
