[elpa] externals/el-search 6a7ca23 181/332: Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir

[Stefan Monnier]

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

    Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir
---
 el-search.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/el-search.el b/el-search.el
index 23a7962..2f12bf9 100644
--- a/el-search.el
+++ b/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"))))