From b0a0511ff4e593e2c412e4273fe937a2e106691c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 9 Nov 2012 20:45:57 +0100 Subject: [PATCH] org-e-beamer: Output "\date{}" when :with-date is nil * contrib/lisp/org-e-beamer.el (org-e-beamer-template): Output "\date{}" when :with-date is nil. * contrib/lisp/org-e-latex.el (org-e-latex-template): Make sure output contains "\date{}" when date is empty. --- contrib/lisp/org-e-beamer.el | 5 +++-- contrib/lisp/org-e-latex.el | 6 +++--- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/org-e-beamer.el b/contrib/lisp/org-e-beamer.el index ef5fb7ea5..7eefb5fab 100644 --- a/contrib/lisp/org-e-beamer.el +++ b/contrib/lisp/org-e-beamer.el @@ -860,8 +860,9 @@ holding export options." (author (format "\\author{%s}\n" author)) (t "\\author{}\n"))) ;; 6. Date. - (when (plist-get info :with-date) - (format "\\date{%s}\n" (org-export-data (plist-get info :date) info))) + (let ((date (and (plist-get info :with-date) + (org-export-data (plist-get info :date) info)))) + (format "\\date{%s}\n" (or date ""))) ;; 7. Title (format "\\title{%s}\n" title) ;; 8. Hyperref options. diff --git a/contrib/lisp/org-e-latex.el b/contrib/lisp/org-e-latex.el index 86af819b7..f18f651ee 100644 --- a/contrib/lisp/org-e-latex.el +++ b/contrib/lisp/org-e-latex.el @@ -1026,9 +1026,9 @@ holding export options." (format "\\author{%s\\thanks{%s}}\n" author email)) ((or author email) (format "\\author{%s}\n" (or author email))))) ;; Date. - (if (not (plist-get info :with-date)) "\\date{}\n" - (let ((date (org-export-data (plist-get info :date) info))) - (and date (format "\\date{%s}\n" date)))) + (let ((date (and (plist-get info :with-date) + (org-export-data (plist-get info :date) info)))) + (format "\\date{%s}\n" (or date ""))) ;; Title (format "\\title{%s}\n" title) ;; Hyperref options. -- 2.11.4.GIT