|
@@ -1329,8 +1329,8 @@ original parsed data. INFO is a plist holding export options."
|
|
|
(author (let ((author (plist-get info :author)))
|
|
|
(if (not author) "" (org-export-data author info))))
|
|
|
(email (plist-get info :email))
|
|
|
- (keywords (plist-get info :keywords))
|
|
|
- (description (plist-get info :description)))
|
|
|
+ (keywords (or (plist-get info :keywords) ""))
|
|
|
+ (description (or (plist-get info :description) "")))
|
|
|
(write-region
|
|
|
(concat
|
|
|
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>
|
|
@@ -1359,9 +1359,8 @@ original parsed data. INFO is a plist holding export options."
|
|
|
(format "<meta:creation-date>%s</meta:creation-date>\n"
|
|
|
iso-date)))))
|
|
|
(format "<meta:generator>%s</meta:generator>\n"
|
|
|
- (let ((creator-info (plist-get info :with-creator)))
|
|
|
- (if (or (not creator-info) (eq creator-info 'comment)) ""
|
|
|
- (plist-get info :creator))))
|
|
|
+ (if (plist-get info :with-creator)
|
|
|
+ (plist-get info :creator) ""))
|
|
|
(format "<meta:keyword>%s</meta:keyword>\n" keywords)
|
|
|
(format "<dc:subject>%s</dc:subject>\n" description)
|
|
|
(format "<dc:title>%s</dc:title>\n" title)
|