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)))) body))))
(defun yas--document-symbols (level &rest names-and-predicates) (defun yas--document-symbols (level &rest names-and-predicates)
(let ((sym-lists (make-vector (length names-and-predicates) (list))) (let ((sym-lists (make-vector (length names-and-predicates) nil)))
(retval ""))
(loop for sym in yas--exported-syms (loop for sym in yas--exported-syms
do (loop for test in (mapcar #'cdr names-and-predicates) do (loop for test in (mapcar #'cdr names-and-predicates)
for i from 0 for i from 0
@ -82,12 +81,10 @@
(return)))) (return))))
(loop for slist across sym-lists (loop for slist across sym-lists
for name in (mapcar #'car names-and-predicates) for name in (mapcar #'car names-and-predicates)
do (progn concat (format "\n** %s\n" name)
(setq retval concat (mapconcat (lambda (sym)
(concat retval (yas--document-symbol sym (1+ level)))
(format "\n** %s\n" name) slist "\n\n"))))
(mapconcat #'yas--document-symbol slist "\n\n")))))
retval))
(defun yas--internal-link-snippet () (defun yas--internal-link-snippet ()
(interactive) (interactive)