From f7b76d5a78f5c033cc7f5aaa5c6b005e79849519 Mon Sep 17 00:00:00 2001 From: Takuya OBUCHI Date: Sat, 21 May 2016 03:56:56 +0900 Subject: [PATCH] Skip trimming newline in paragraph --- ox-gfm.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/ox-gfm.el b/ox-gfm.el index c33269f..6c77a7d 100644 --- a/ox-gfm.el +++ b/ox-gfm.el @@ -73,14 +73,11 @@ "Transcode PARAGRAPH element into Github Flavoured Markdown format. CONTENTS is the paragraph contents. INFO is a plist used as a communication channel." - (let ((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)) - (replace-regexp-in-string "\\`#" "\\#" contents nil t) - contents)))) + (let ((first-object (car (org-element-contents paragraph)))) + ;; If paragraph starts with a #, protect it. + (if (and (stringp first-object) (string-match "\\`#" first-object)) + (replace-regexp-in-string "\\`#" "\\#" contents nil t) + contents))) ;;;; Src Block