Browse Source

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 năm trước cách đây
mục cha
commit
e51aa0eaa5
1 tập tin đã thay đổi với 2 bổ sung1 xóa
  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>")
 	    )))