ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-e-html: Fix misc. bugs

This commit is contained in:
Jambunathan K 2012-06-02 05:34:20 +05:30
parent 984748641b
commit 02f3ee40f3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/lisp/org-e-html.el
View File

@ -1627,7 +1627,8 @@ This function shouldn't be used for floats. See
(plist-get info :html-postamble)) (plist-get info :html-postamble))
(let* ((html-post (plist-get info :html-postamble)) (let* ((html-post (plist-get info :html-postamble))
(date (org-e-html-format-date info)) (date (org-e-html-format-date info))
(author (plist-get info :author)) (author (let ((author (plist-get info :author)))
(and author (org-export-data author info))))
(email (plist-get info :email)) (email (plist-get info :email))
(lang-words (or (assoc (plist-get info :language) (lang-words (or (assoc (plist-get info :language)
org-export-language-setup) org-export-language-setup)
@ -2122,6 +2123,8 @@ holding contextual information."
"Transcode an HEADLINE element from Org to HTML. "Transcode an HEADLINE element from Org to HTML.
CONTENTS holds the contents of the headline. INFO is a plist CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information." holding contextual information."
;; Empty contents?
(setq contents (or contents ""))
(let* ((numberedp (org-export-numbered-headline-p headline info)) (let* ((numberedp (org-export-numbered-headline-p headline info))
(level (org-export-get-relative-level headline info)) (level (org-export-get-relative-level headline info))
(text (org-export-data (org-element-property :title headline) info)) (text (org-export-data (org-element-property :title headline) info))