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

ox-texinfo: Fix footnotes ending on a special environment

Browse source 
* lisp/ox-texinfo.el (org-texinfo-footnote-reference): Prevent
a footnote from ending on an "@end" line.

Reported-by: Ramesh Nedunchezian <rameshnedunchezian@outlook.com>
<http://lists.gnu.org/r/emacs-orgmode/2021-04/msg00228.html>
This commit is contained in:
Nicolas Goaziou 2021-04-13 00:27:45 +02:00
parent 4056e11ddc
commit 6dbd132e62
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/ox-texinfo.el
View file

@ -846,9 +846,17 @@ CONTENTS is nil. INFO is a plist holding contextual information."
FOOTNOTE is the footnote to define. CONTENTS is nil. INFO is a
plist holding contextual information."
(let ((def (org-export-get-footnote-definition footnote info)))
(let* ((contents (org-export-get-footnote-definition footnote info))
(data (org-export-data contents info)))
(format "@footnote{%s}"
(org-trim (org-export-data def info)))))
;; It is invalid to close a footnote on a line starting
;; with "@end". As a safety net, we leave a newline
;; character before the closing brace. However, when the
;; footnote ends with a paragraph, it is visually pleasing
;; to move the brace right after its end.
(if (eq 'paragraph (org-element-type (org-last contents)))
(org-trim data)
data))))
;;;; Headline