UTF-8 fix, thanks to Francis Leboutte

2007-07-22 19:59:26 +00:00
parent b0ca8a12da
commit 5fcc11f244
5 changed files with 62 additions and 34 deletions
--- a/dom/dom-builder.lisp
+++ b/dom/dom-builder.lisp
@ -135,7 +135,7 @@
      (cond
        ((eq (dom:node-type parent) :cdata-section)
          (setf (dom:data parent) data))
-        ((and last-child (eq (dom:node-type last-child) :text))
+	((and last-child (eq (dom:node-type last-child) :text))
          ;; um entities herum wird SAX:CHARACTERS mehrfach aufgerufen fuer
          ;; den gleichen Textknoten.  Hier muessen wir den bestehenden Knoten
          ;; erweitern, sonst ist das Dokument nicht normalisiert.