[elpa] master f33f2cd: New command `el-search-load-path'

[Michael Heerdegen]

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

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

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 82d9419..49e6411 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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