[elpa] externals/el-search 1ef4266 114/332: Make el-search--make-docstring require a NAME argument

[Stefan Monnier]

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

    Make el-search--make-docstring require a NAME argument
---
 el-search.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index a517165..c10a284 100644
--- a/el-search.el
+++ b/el-search.el
@@ -423,9 +423,9 @@ and return it."
 (defvar el-search--pcase-macros '()
   "List of additional \"el-search\" pcase macros.")
 
-(defun el-search--make-docstring ()
+(defun el-search--make-docstring (name)
   ;; code mainly from `pcase--make-docstring'
-  (let* ((main (documentation (symbol-function 'el-search-pattern) 'raw))
+  (let* ((main (documentation (symbol-function name) 'raw))
          (ud (help-split-fundoc main 'pcase)))
     (with-temp-buffer
       (insert (or (cdr ud) main))
@@ -440,7 +440,7 @@ and return it."
       (let ((combined-doc (buffer-string)))
         (if ud (help-add-fundoc-usage combined-doc (car ud)) combined-doc)))))
 
-(put 'el-search-pattern 'function-documentation '(el-search--make-docstring))
+(put 'el-search-pattern 'function-documentation '(el-search--make-docstring 
'el-search-pattern))
 
 (defmacro el-search-defpattern (name args &rest body)
   "Like `pcase-defmacro', but limited to el-search patterns.