[elpa] externals/el-search 8fdb91d 124/332: New command `el-search-load-path'

[Stefan Monnier]

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

    New command `el-search-load-path'
---
 el-search.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/el-search.el b/el-search.el
index 82d9419..49e6411 100644
--- a/el-search.el
+++ b/el-search.el
@@ -1395,6 +1395,18 @@ This command recursively searches all elisp files under
     (expand-file-name "lisp/" source-directory)
     t)))
 
+;;;###autoload
+(defun el-search-load-path (pattern)
+  "Search PATTERN in the elisp files in all directories of `load-path'.
+nil elements in `load-path' (standing for `default-directory')
+are ignored."
+  (interactive (list (el-search--read-pattern-for-interactive)))
+  (el-search-setup-search
+   pattern
+   (stream-concatenate
+    (seq-map (lambda (path) (el-search-stream-of-directory-files path nil))
+             (stream (delq nil load-path))))))
+
 (declare-function dired-get-marked-files "dired")
 
 ;;;###autoload