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

Fix compilation problems of doc/yas-doc-helper.el

Browse Source
This commit is contained in:
João Távora 2023-09-05 02:05:16 +01:00
parent 849a134c2d
commit 3393975e1c
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,10 +25,9 @@
;;; Code: ;;; Code:
(eval-when-compile (eval-when-compile
(require 'cl)) (require 'cl-lib))
(require 'org) (require 'org)
(or (require 'org-publish nil t) (require 'ox-publish)
(require 'ox-publish))
(require 'yasnippet) ; docstrings must be loaded (require 'yasnippet) ; docstrings must be loaded
(defun yas--org-raw-html (tag content &optional attrs) (defun yas--org-raw-html (tag content &optional attrs)
@ -132,18 +131,18 @@
(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) nil)) (let ((sym-lists (make-vector (length names-and-predicates) nil))
(stars (make-string level ?*))) (stars (make-string level ?*)))
(loop for sym in yas--exported-syms (cl-loop for sym in yas--exported-syms
do (loop for test in (mapcar #'cdr names-and-predicates) do (cl-loop for test in (mapcar #'cdr names-and-predicates)
for i from 0 for i from 0
do (when (funcall test sym) do (when (funcall test sym)
(push sym (aref sym-lists i)) (push sym (aref sym-lists i))
(return)))) (cl-return))))
(loop for slist across sym-lists (cl-loop for slist across sym-lists
for name in (mapcar #'car names-and-predicates) for name in (mapcar #'car names-and-predicates)
concat (format "\n%s %s\n" stars name) concat (format "\n%s %s\n" stars name)
concat (mapconcat (lambda (sym) concat (mapconcat (lambda (sym)
(yas--document-symbol sym (1+ level))) (yas--document-symbol sym (1+ level)))
slist "\n\n")))) slist "\n\n"))))
(defun yas--internal-link-snippet () (defun yas--internal-link-snippet ()
(interactive) (interactive)