When preserve-breaks is set on, skip trimming newline in paragraph

This commit is contained in:
Takuya OBUCHI 2016-05-21 05:13:26 +09:00
parent f7b76d5a78
commit 2feeb57a8d

View File

@ -69,10 +69,13 @@
;;;; Paragraph
(defun org-gfm-paragraph (paragraph contents _info)
(defun org-gfm-paragraph (paragraph contents info)
"Transcode PARAGRAPH element into Github Flavoured Markdown format.
CONTENTS is the paragraph contents. INFO is a plist used as a
communication channel."
(unless (plist-get info :preserve-breaks)
(setq contents (concat (mapconcat 'identity (split-string contents) " ")
"\n")))
(let ((first-object (car (org-element-contents paragraph))))
;; If paragraph starts with a #, protect it.
(if (and (stringp first-object) (string-match "\\`#" first-object))