[elpa] externals/el-search c4d8e00 105/332: el-search--make-docstring: exclude some specially named patterns

[Stefan Monnier]

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

    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.
---
 el-search.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/el-search.el b/el-search.el
index 28343d4..c2e8c0e 100644
--- a/el-search.el
+++ b/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)))))