ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 13:13:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix exporting of doc strings for org manual

Browse Source 
need to pass (1+ level) to yas--document-symbol
This commit is contained in:
Noam Postavsky 2013-11-23 13:31:38 -05:00
parent bc4cfbbb04
commit b20f0a4270
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
doc/yas-doc-helper.el
View File

@ -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)