diff --git a/ox-gfm.el b/ox-gfm.el index 6c77a7d..a560eec 100644 --- a/ox-gfm.el +++ b/ox-gfm.el @@ -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))