tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

HTML export: Fix bug in example line enumeration code

This commit is contained in:
Carsten Dominik 2009-07-19 08:00:53 +02:00
parent 6596d005ef
commit 82dcd80130
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

6
lisp/org-exp.el
View File

@ -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."
'((?&."&amp;")(?<."&lt;")(?>."&gt;"))))
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))