Fix publishing with org 7.9

* doc/yas-doc-helper.el: Only use org-html-publish-to-html when it's
  fbound.
This commit is contained in:
Noam Postavsky 2014-05-11 16:58:01 -04:00
parent 6b04dada67
commit fe288a156c

View File

@ -134,17 +134,17 @@
(buffer-string)) (buffer-string))
(princ yas--version (current-buffer))))) (princ yas--version (current-buffer)))))
(proj-plist (proj-plist
(list `(,@(when (fboundp 'org-html-publish-to-html)
:publishing-function 'org-html-publish-to-html '(:publishing-function 'org-html-publish-to-html))
:base-directory dir :publishing-directory dir :base-directory ,dir :publishing-directory ,dir
:html-preamble :html-preamble
(with-temp-buffer ,(with-temp-buffer
(insert-file-contents (expand-file-name "nav-menu.html.inc" dir)) (insert-file-contents (expand-file-name "nav-menu.html.inc" dir))
(buffer-string)) (buffer-string))
:html-postamble :html-postamble
(concat "<hr><p class='creator'>Generated by %c on %d from " ,(concat "<hr><p class='creator'>Generated by %c on %d from "
rev "</p>\n" rev "</p>\n"
"<p class='xhtml-validation'>%v</p>\n"))) "<p class='xhtml-validation'>%v</p>\n")))
(project (assoc "yasnippet" org-publish-project-alist))) (project (assoc "yasnippet" org-publish-project-alist)))
(if project (if project
(setcdr project proj-plist) (setcdr project proj-plist)