mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +00:00
ox-ascii: Fix line break preservation
* lisp/ox-ascii.el (org-ascii--justify-element): Fix line break preservation. Thanks to Miguel Ruiz for reporting it. http://permalink.gmane.org/gmane.emacs.orgmode/88866
This commit is contained in:
parent
dd6b4ffcef
commit
b15a9c0c1c
|
@ -488,12 +488,12 @@ that is according to the widest non blank line in CONTENTS."
|
|||
(if (not (org-string-nw-p contents)) contents
|
||||
(let ((text-width (org-ascii--current-text-width element info))
|
||||
(how (org-ascii--current-justification element)))
|
||||
(if (eq how 'left) contents
|
||||
;; Paragraphs are treated specially as they also need to be
|
||||
;; filled.
|
||||
(if (eq (org-element-type element) 'paragraph)
|
||||
(org-ascii--fill-string contents text-width info how)
|
||||
(with-temp-buffer
|
||||
(cond
|
||||
((eq (org-element-type element) 'paragraph)
|
||||
;; Paragraphs are treated specially as they need to be filled.
|
||||
(org-ascii--fill-string contents text-width info how))
|
||||
((eq how 'left) contents)
|
||||
(t (with-temp-buffer
|
||||
(insert contents)
|
||||
(goto-char (point-min))
|
||||
(catch 'exit
|
||||
|
|
Loading…
Reference in a new issue