emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master fe288a1 121/177: Fix publishing with org 7.9


From: João Távora
Subject: [elpa] master fe288a1 121/177: Fix publishing with org 7.9
Date: Sat, 28 Mar 2015 15:41:21 +0000

branch: master
commit fe288a156c063666d9c6613b6eea0ed5a515a86b
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    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 files 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 "<hr><p class='creator'>Generated by %c on %d from "
-                 rev "</p>\n"
-                 "<p class='xhtml-validation'>%v</p>\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 "<hr><p class='creator'>Generated by %c on %d from "
+                   rev "</p>\n"
+                   "<p class='xhtml-validation'>%v</p>\n")))
        (project (assoc "yasnippet" org-publish-project-alist)))
   (if project
       (setcdr project proj-plist)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]