On Tue, Mar 8, 2011 at 02:07, Bernt Hansen <[email protected]> wrote:
> Thanks for the patch. I still see validation errors after applying this
> patch. I've posted the original test file at
> http://www.norang.ca/tmp/foo.html and you can click on the validation
> link at the bottom to see the remaining errors.
This one seemed easy to fix, so I thought I’d butt in. :-) Hope the
format of the patch is right (I’m using hg-git).
--8<---------------cut here---------------start------------->8---
# HG changeset patch
# User Aankhen
# Date 1299568135 -19800
# Node ID 23e761c8a103c521aef0a85ee3650bc850d0193d
# Parent 56fa585a0f995bc97006ce6d6c2baab9c484444c
Fix anchors in HTML export.
diff --git a/lisp/org-html.el b/lisp/org-html.el
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -1996,8 +1996,8 @@
;; DocBook document, we want to always include the caption to make
;; DocBook XML file valid.
(push (format "<caption>%s</caption>" (or caption "")) html)
- (when label (push (format "<a name=\"%s\" id=\"%s\"></a>"
(org-solidify-link-text label) (org-solidify-link-text label))
- html))
+ (when label
+ (setq html-table-tag (org-export-splice-attributes
html-table-tag (format "id=\"%s\"" (org-solidify-link-text label)))))
(push html-table-tag html))
(setq html (mapcar
(lambda (x)
--8<---------------cut here---------------end--------------->8---
Aankhen
