From: David Lichteblau <david@lichteblau.com>
Date: Sun, 23 Mar 2008 18:28:50 +0000 (+0100)
Subject: silently delete xmlns attributes in HAX events
X-Git-Url: https://repo.or.cz/w/closure-html.git/commitdiff_plain/85eb1d6ad73a075f8586fd946ca5165cfdfb650d

silently delete xmlns attributes in HAX events
---

diff --git a/src/parse/html-parser.lisp b/src/parse/html-parser.lisp
index 578a910..1160293 100644
--- a/src/parse/html-parser.lisp
+++ b/src/parse/html-parser.lisp
@@ -101,6 +101,9 @@
 (defun serialize-pt-attributes (plist recode)
   (loop
      for (name value) on plist by #'cddr
+     unless
+       ;; better don't emit as HAX what would be bogus as SAX anyway
+       (string-equal name "xmlns")
      collect
      (let* ((n #+rune-is-character (coerce (symbol-name name) 'rod)
 	       #-rune-is-character (symbol-name name))