|
@@ -3885,11 +3885,15 @@ lang=\"%s\" xml:lang=\"%s\">
|
|
|
(setq line (concat line "<br/>"))))
|
|
|
|
|
|
;; Check if a paragraph should be started
|
|
|
- (while (and org-par-open
|
|
|
- (string-match "\\\\par\\>" line))
|
|
|
- ;; Leave a space in the </p> so that the footnote matcher
|
|
|
- ;; does not see this.
|
|
|
- (setq line (replace-match "</p ><p >" t t line)))
|
|
|
+ (let ((start 0))
|
|
|
+ (while (and org-par-open
|
|
|
+ (string-match "\\\\par\\>" line start))
|
|
|
+ ;; Leave a space in the </p> so that the footnote matcher
|
|
|
+ ;; does not see this.
|
|
|
+ (if (not (get-text-property (match-beginning 0)
|
|
|
+ 'org-protected line))
|
|
|
+ (setq line (replace-match "</p ><p >" t t line)))
|
|
|
+ (setq start (match-end 0))))
|
|
|
|
|
|
(insert line "\n")))))
|
|
|
|