mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 20:32:52 +00:00
HTML export: Fix bug in example line enumeration code
This commit is contained in:
parent
6596d005ef
commit
82dcd80130
|
@ -1,3 +1,8 @@
|
|||
2009-07-19 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-exp.el (org-export-format-source-code-or-example): Fix bug
|
||||
that did not enumerate first line.
|
||||
|
||||
2009-07-18 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org.el (org-activate-plain-links): Make single-match.
|
||||
|
|
|
@ -2248,7 +2248,7 @@ INDENT was the original indentation of the block."
|
|||
(point-min) (point-max))))
|
||||
(if (string-match "<pre\\([^>]*\\)>\n*" rtn)
|
||||
(setq rtn (replace-match
|
||||
(format "<pre class=\"src src-%s\">" lang)
|
||||
(format "<pre class=\"src src-%s\">\n" lang)
|
||||
t t rtn))))
|
||||
(if textareap
|
||||
(setq rtn (concat
|
||||
|
@ -2263,10 +2263,12 @@ INDENT was the original indentation of the block."
|
|||
'((?&."&")(?<."<")(?>.">"))))
|
||||
t t))
|
||||
(setq rtn (buffer-string)))
|
||||
(setq rtn (concat "<pre class=\"example\">" rtn "</pre>\n"))))
|
||||
(setq rtn (concat "<pre class=\"example\">\n" rtn "</pre>\n"))))
|
||||
(unless textareap
|
||||
(setq rtn (org-export-number-lines rtn 'html 1 1 num
|
||||
cont rpllbl fmt)))
|
||||
(if (string-match "\\(\\`<[^>]*>\\)\n" rtn)
|
||||
(setq rtn (replace-match "\\1" t nil rtn)))
|
||||
(concat "\n#+BEGIN_HTML\n" (org-add-props rtn '(org-protected t)) "\n#+END_HTML\n\n"))
|
||||
((eq backend 'latex)
|
||||
(setq rtn (org-export-number-lines rtn 'latex 0 0 num cont rpllbl fmt))
|
||||
|
|
Loading…
Reference in a new issue