diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 528879735..bf08de10a 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2202,7 +2202,7 @@ https://github.com/hniksic/emacs-htmlize")) (org-html-htmlize-region-for-paste (point-min) (point-max)))))) ;; Strip any enclosing
tags. - (let* ((beg (and (string-match "\\`]*>\n*" code) (match-end 0))) + (let* ((beg (and (string-match "\\`]*>\n?" code) (match-end 0))) (end (and beg (string-match "\\'" code)))) (if (and beg end) (substring code beg end) code))))))))) @@ -2215,7 +2215,7 @@ alist between line numbers and references (as returned by `org-export-unravel-code'), a boolean specifying if labels should appear in the source code, and the number associated to the first line of code." - (let* ((code-lines (org-split-string code "\n")) + (let* ((code-lines (split-string code "\n")) (code-length (length code-lines)) (num-fmt (and num-start