From fe288a156c063666d9c6613b6eea0ed5a515a86b Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sun, 11 May 2014 16:58:01 -0400 Subject: [PATCH] Fix publishing with org 7.9 * doc/yas-doc-helper.el: Only use org-html-publish-to-html when it's fbound. --- doc/yas-doc-helper.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el index f6e101c..76a00b1 100755 --- a/doc/yas-doc-helper.el +++ b/doc/yas-doc-helper.el @@ -134,17 +134,17 @@ (buffer-string)) (princ yas--version (current-buffer))))) (proj-plist - (list - :publishing-function 'org-html-publish-to-html - :base-directory dir :publishing-directory dir - :html-preamble - (with-temp-buffer - (insert-file-contents (expand-file-name "nav-menu.html.inc" dir)) - (buffer-string)) - :html-postamble - (concat "

Generated by %c on %d from " - rev "

\n" - "

%v

\n"))) + `(,@(when (fboundp 'org-html-publish-to-html) + '(:publishing-function 'org-html-publish-to-html)) + :base-directory ,dir :publishing-directory ,dir + :html-preamble + ,(with-temp-buffer + (insert-file-contents (expand-file-name "nav-menu.html.inc" dir)) + (buffer-string)) + :html-postamble + ,(concat "

Generated by %c on %d from " + rev "

\n" + "

%v

\n"))) (project (assoc "yasnippet" org-publish-project-alist))) (if project (setcdr project proj-plist)