Hi Carsten,

This appears to emphasize org-mode markup in html export of captions. It seems to work, but I have a difficult time understanding org-mode code and haven't any sense of the proper way to do things, etc., so caveat emptor.

All the best,
Tom

---------------
        Modified lisp/org-html.el
diff --git a/lisp/org-html.el b/lisp/org-html.el
index d75d8f5..71e3e99 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -1521,7 +1521,7 @@ lang=\"%s\" xml:lang=\"%s\">
   (save-match-data
     (if (string-match "^ltxpng/" src)
        (format "<img src=\"%s\"/>" src)
- (let* ((caption (org-find-text-property-in-string 'org-caption src)) + (let* ((caption (org-export-html-convert-emphasize (org-find- text-property-in-string 'org-caption src)))
             (attr (org-find-text-property-in-string 'org-attributes src))
             (label (org-find-text-property-in-string 'org-label src)))
        (concat
@@ -1599,11 +1599,11 @@ lang=\"%s\" xml:lang=\"%s\">
     ;; column and the special lines
     (setq lines (org-table-clean-before-export lines)))

-  (let* ((caption (or (get-text-property 0 'org-caption (car lines))
+ (let* ((caption (org-export-html-convert-emphasize (or (get-text- property 0 'org-caption (car lines))
                      (get-text-property (or (next-single-property-change
                                              0 'org-caption (car lines))
                                             0)
-                                        'org-caption (car lines))))
+                                        'org-caption (car lines)))))
         (attributes (or (get-text-property 0 'org-attributes (car lines))
                         (get-text-property (or (next-single-property-change
                                                 0 'org-attributes (car lines))



_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to