ox-odt: Stop adding leading space after line break
* lisp/ox-odt.el (org-odt-line-break, org-odt-plain-text): Remove newline after line-break tag. The exporter was pretty-printing the ODT XML with newlines after forced line breaks, but LibreOffice would interpret those as spaces. This led to a leading space after every manual line break.
This commit is contained in:
parent
0113f4f80f
commit
a535d291fd
|
@ -2058,7 +2058,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
(defun org-odt-line-break (line-break contents info)
|
(defun org-odt-line-break (line-break contents info)
|
||||||
"Transcode a LINE-BREAK object from Org to ODT.
|
"Transcode a LINE-BREAK object from Org to ODT.
|
||||||
CONTENTS is nil. INFO is a plist holding contextual information."
|
CONTENTS is nil. INFO is a plist holding contextual information."
|
||||||
"<text:line-break/>\n")
|
"<text:line-break/>")
|
||||||
|
|
||||||
|
|
||||||
;;;; Link
|
;;;; Link
|
||||||
|
@ -2967,7 +2967,7 @@ contextual information."
|
||||||
;; Handle break preservation if required.
|
;; Handle break preservation if required.
|
||||||
(when (plist-get info :preserve-breaks)
|
(when (plist-get info :preserve-breaks)
|
||||||
(setq output (replace-regexp-in-string
|
(setq output (replace-regexp-in-string
|
||||||
"\\(\\\\\\\\\\)?[ \t]*\n" "<text:line-break/>\n" output t)))
|
"\\(\\\\\\\\\\)?[ \t]*\n" "<text:line-break/>" output t)))
|
||||||
;; Return value.
|
;; Return value.
|
||||||
output))
|
output))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue