Re: Re: [REGRESSION] org-html.el (targets)

[Aankhen <aankhen@gmail.com>]

On Tue, Mar 8, 2011 at 02:07, Bernt Hansen <bernt@norang.ca> 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