diff --git a/lisp/org-html.el b/lisp/org-html.el index 5608b50..8e3ed4e 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -123,7 +123,7 @@ not be modified." white-space:nowrap; } .org-info-js_search-highlight {background-color:#ffff00; color:#000000; font-weight:bold; } - /*]]>*///--> + /*]]>*/--> " "The default style specification for exported HTML files. Please use the variables `org-export-html-style' and @@ -1353,10 +1353,10 @@ lang=\"%s\" xml:lang=\"%s\"> (defun org-export-html-format-desc (s) "Make sure the S is valid as a description in a link." - (if (and s (not (get-text-property 1 'org-protected s))) - (save-match-data - (org-html-do-expand s)) - s)) + (save-match-data + (if (and s (not (get-text-property 1 'org-protected s))) + (org-html-do-expand s) + (org-html-protect s)))) (defun org-export-html-format-image (src par-open) "Create image tag with source and attributes." @@ -1492,23 +1492,18 @@ lang=\"%s\" xml:lang=\"%s\"> (setq html (nreverse html)) (unless splice ;; Put in col tags with the alignment (unfortunately often ignored...) - (push (mapconcat - (lambda (x) - (setq gr (pop org-table-colgroup-info)) - (format "%s