[elpa] master ae0dbe9 4/7: el-search--make-docstring: exclude some specially named patterns

[Michael Heerdegen]

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

    el-search--make-docstring: exclude some specially named patterns
    
    Make patterns starting with a hyphen, or containing "--" not appear in
    the generated docstring of `el-search-pattern': patterns with these
    names are now considered internal.
---
 packages/el-search/el-search.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 28343d4..c2e8c0e 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -426,10 +426,11 @@ and return it."
       (insert (or (cdr ud) main))
       (mapc
        (pcase-lambda (`(,symbol . ,fun))
-         (when-let ((doc (documentation fun)))
-           (insert "\n\n\n-- ")
-           (setq doc (help-fns--signature symbol doc fun fun nil))
-           (insert "\n" (or doc "Not documented."))))
+         (unless (string-match-p "\\`-\\|--" (symbol-name symbol)) ;let's 
consider these "internal"
+           (when-let ((doc (documentation fun)))
+             (insert "\n\n\n-- ")
+             (setq doc (help-fns--signature symbol doc fun fun nil))
+             (insert "\n" (or doc "Not documented.")))))
        (reverse el-search--pcase-macros))
       (let ((combined-doc (buffer-string)))
         (if ud (help-add-fundoc-usage combined-doc (car ud)) combined-doc)))))