|
@@ -1478,10 +1478,10 @@ is the language used for CODE, as a string, or nil."
|
|
|
;; Htmlize region.
|
|
|
(org-html-htmlize-region-for-paste
|
|
|
(point-min) (point-max))))
|
|
|
- ;; Strip any encolosing <pre></pre> tags.
|
|
|
- (if (string-match "<pre[^>]*>\n*\\([^\000]*\\)</pre>" code)
|
|
|
- (match-string 1 code)
|
|
|
- code))))))))
|
|
|
+ ;; Strip any enclosing <pre></pre> tags.
|
|
|
+ (let* ((beg (and (string-match "\\`<pre[^>]*>\n*" code) (match-end 0)))
|
|
|
+ (end (and beg (string-match "</pre>\\'" code))))
|
|
|
+ (if (and beg end) (substring code beg end) code)))))))))
|
|
|
|
|
|
(defun org-html-do-format-code
|
|
|
(code &optional lang refs retain-labels num-start)
|