[elpa] master 23d1ac7: Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir

[Michael Heerdegen]

branch: master
commit 23d1ac7fcea75496d76014ec8edf070944f9432c
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    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"))))