diff --git a/lisp/org-exp.el b/lisp/org-exp.el index de2e42df2..fa4d15d3b 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2008,8 +2008,9 @@ backends, it converts the segment into an EXAMPLE segment." (org-export-htmlize-region-for-paste (point-min) (point-max))))) (if (string-match "
]*\\)>\n?" htmltext) - (setq htmltext (replace-match "" - t t htmltext))) + (setq htmltext (replace-match + (format "" lang) + t t htmltext))) (concat "#+BEGIN_HTML\n" htmltext "\n#+END_HTML\n")))) (t ;; This is not HTML, so just make it an example. @@ -2937,7 +2938,7 @@ lang=\"%s\" xml:lang=\"%s\"> (string-match "^[ \t]*:\\(.*\\)" line)) (when (not infixed) (setq infixed t) - (insert "\n")) + (insert "\n")) (insert (org-html-protect (match-string 1 line)) "\n") (when (or (not lines) (not (string-match "^[ \t]*\\(:.*\\)"