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

* minor adjustments to bundle generation.

Browse Source 
* *NOW* will probably tag 0.6.1c
This commit is contained in:
capitaomorte 2009-09-13 16:56:23 +00:00
parent 97e7491dfa
commit 5d0b9657e3
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
yasnippet.el
View File

@ -1563,14 +1563,20 @@ Here's the default value for all the parameters:
(dolist (subdir (yas/subdirs dir))
(yas/load-directory-1 subdir nil 'no-hierarchy-parents))))
(insert " (yas/global-mode 1)\n")
(insert (pp-to-string `(yas/global-mode 1)))
(insert ")\n\n" code "\n")
;; bundle-specific provide and value for yas/dont-activate
(let ((bundle-feature-name (file-name-nondirectory
(file-name-sans-extension
yasnippet-bundle))))
(insert (pp-to-string `(set-default 'yas/dont-activate
#'(lambda ()
(and (or yas/root-directory
(featurep ',(make-symbol bundle-feature-name)))
(null (yas/get-snippet-tables)))))))
(insert (pp-to-string `(provide ',(make-symbol bundle-feature-name)))))
(insert "(provide '"
(file-name-nondirectory
(file-name-sans-extension
yasnippet-bundle))
")\n")
(insert ";;; "
(file-name-nondirectory yasnippet-bundle)
" ends here\n"))))