Bläddra i källkod

Bugix: keep backward-compatible with the old default of `org-export-html-validation-link'.

* org-html.el (org-export-as-html): handle the case when
`org-export-html-validation-link' is nil to keep backward
compatible with the old default value of this variable.

Thanks to Sébastien Vauban for spotting this.
Bastien Guerry 14 år sedan
förälder
incheckning
e51aa0eaa5
1 ändrade filer med 2 tillägg och 1 borttagningar
  1. 2 1
      lisp/org-html.el

+ 2 - 1
lisp/org-html.el

@@ -1091,6 +1091,7 @@ PUB-DIR is set, use this as the publishing directory."
 	 (org-levels-open (make-vector org-level-max nil))
 	 (date (plist-get opt-plist :date))
 	 (author      (plist-get opt-plist :author))
+	 (html-validation-link (or org-export-html-validation-link ""))
 	 (title       (or (and subtree-p (org-export-get-title-from-subtree))
 			  (plist-get opt-plist :title)
 			  (and (not body-only)
@@ -1756,7 +1757,7 @@ lang=\"%s\" xml:lang=\"%s\">
 	    (insert (format-spec html-postamble-format
 				 `((?a . ,author) (?e . ,email)
 				   (?d . ,date)   (?c . ,creator-info)
-				   (?v . ,org-export-html-validation-link))))
+				   (?v . ,html-validation-link))))
 	    (insert "</div>")
 	    )))