mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Fix bugs introduced in b39dd5a

Browse source 
* ox-man.el (org-man-template),
  ox-texinfo.el (org-texinfo-template): Fix bug.
This commit is contained in:
Rasmus 2015-02-12 10:59:30 +01:00
parent b39dd5a099
commit 1cc23c6f3d
2 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ox-man.el
View file

@ -311,7 +311,7 @@ This function shouldn't be used for floats. See
"Return complete document string after Man conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options."
(let* ((title (when (plist-get :with-title)
(let* ((title (when (plist-get info :with-title)
(org-export-data (plist-get info :title) info)))
(attr (read (format "(%s)"
(mapconcat

11
lisp/ox-texinfo.el
View file

@ -569,11 +569,12 @@ holding export options."
"@finalout\n"
"@titlepage\n"
(when (plist-get info :with-title)
(format "@title %s\n" (or (plist-get info :texinfo-printed-title) title))
(let ((subtitle (plist-get info :subtitle)))
(and subtitle
(org-element-normalize-string
(replace-regexp-in-string "^" "@subtitle " subtitle)))))
(concat
(format "@title %s\n" (or (plist-get info :texinfo-printed-title) title ""))
(let ((subtitle (plist-get info :subtitle)))
(and subtitle
(org-element-normalize-string
(replace-regexp-in-string "^" "@subtitle " subtitle))))))
(when (plist-get info :with-author)
(concat
;; Primary author.