[elpa] master b20f0a4 034/177: fix exporting of doc strings for org manual

[João Távora]

branch: master
commit b20f0a4270cb91514c973ca7aa4c9d16c056fbaa
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    fix exporting of doc strings for org manual
    
    need to pass (1+ level) to yas--document-symbol
---
 doc/yas-doc-helper.el |   13 +++++--------
 1 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el
index 3217834..39c9716 100755
--- a/doc/yas-doc-helper.el
+++ b/doc/yas-doc-helper.el
@@ -72,8 +72,7 @@
                     body))))
 
 (defun yas--document-symbols (level &rest names-and-predicates)
-  (let ((sym-lists (make-vector (length names-and-predicates) (list)))
-        (retval ""))
+  (let ((sym-lists (make-vector (length names-and-predicates) nil)))
     (loop for sym in yas--exported-syms
           do (loop for test in (mapcar #'cdr names-and-predicates)
                    for i from 0
@@ -82,12 +81,10 @@
                         (return))))
     (loop for slist across sym-lists
           for name in (mapcar #'car names-and-predicates)
-          do (progn
-               (setq retval
-                     (concat retval
-                             (format "\n** %s\n" name)
-                             (mapconcat #'yas--document-symbol slist 
"\n\n")))))
-    retval))
+          concat (format "\n** %s\n" name)
+          concat (mapconcat (lambda (sym)
+                              (yas--document-symbol sym (1+ level)))
+                            slist "\n\n"))))
 
 (defun yas--internal-link-snippet ()
   (interactive)