diff options
author | Bastien Guerry <bzg@altern.org> | 2011-02-15 15:57:20 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-02-15 15:57:20 +0100 |
commit | e51aa0eaa5da9ed59dd2e2fc5c7dcc46879ee54d (patch) | |
tree | 084d09cb765d6cb8c36abc7356f5084a87008aee | |
parent | ed6d6760268a18ff5c49f4d98b433f6cf9500e1e (diff) | |
download | org-mode-e51aa0eaa5da9ed59dd2e2fc5c7dcc46879ee54d.tar.gz |
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.
-rw-r--r-- | lisp/org-html.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-html.el b/lisp/org-html.el index 0a66b2e..9135c73 100644 --- a/lisp/org-html.el +++ b/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>") ))) |