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%s" - (if (memq gr '(:start :startend)) - (prog1 - (if colgropen "\n" "") - (setq colgropen t)) - "") + (push (concat + "" + (mapconcat + (lambda (x) + (setq gr (pop org-table-colgroup-info)) + (format "" (if (> (/ (float x) nlines) org-table-number-fraction) - "right" "left") - (if (memq gr '(:end :startend)) - (progn (setq colgropen nil) "") - ""))) - fnum "") + "right" "left"))) + fnum "") + "") html) - (if colgropen (setq html (cons (car html) (cons "" (cdr html))))) + ;; Since the output of HTML table formatter can also be used in ;; DocBook document, we want to always include the caption to make ;; DocBook XML file valid.