From 20fcf5c321690eb3b55c0a452d9a3ca0d147c0cc Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 12 May 2008 07:32:57 +0200 Subject: [PATCH] Bug fixes for colored example export. --- lisp/org-exp.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-exp.el b/lisp/org-exp.el index c64153ca3..52bbf9105 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -580,7 +580,8 @@ to a file." "Output type to be used by htmlize when formatting code snippets. Normally this is `inline-css', but if you have defined to appropriate classes in your css style file, setting this to `css' means that the -fontification will use appropriate class names." +fontification will use the class names. +See also the function `org-export-htmlize-generate-css'." :group 'org-export-htmlize :type '(choice (const css) (const inline-css))) @@ -2830,7 +2831,7 @@ lang=\"%s\" xml:lang=\"%s\"> (substring (match-string 2 line) 0 -1)) line (substring line (match-beginning 5)) item-tag nil) - (if (string-match "\\(.*?\\) ::[ \t]*" line) + (if (and starter (string-match "\\(.*?\\) ::[ \t]*" line)) (setq item-type "d" item-tag (match-string 1 line) line (substring line (match-end 0)))) @@ -3286,7 +3287,7 @@ But it has the disadvantage, that Org-mode's HTML conversions cannot be used." "Convert the region to HTML, using htmlize.el. This is much like `htmlize-region-for-paste', only that it uses the settings define in the org-... variables." - (let* ((htmlize-output-type 'css) + (let* ((htmlize-output-type org-export-htmlize-output-type) (htmlize-css-name-prefix org-export-htmlize-css-font-prefix) (htmlbuf (htmlize-region beg end))) (unwind-protect -- 2.11.4.GIT