Update of /project/cxml/cvsroot/cxml/dom In directory clnet:/tmp/cvs-serv8223/dom
Modified Files: dom-builder.lisp Log Message: UTF-8 fix, thanks to Francis Leboutte
--- /project/cxml/cvsroot/cxml/dom/dom-builder.lisp 2007/02/18 14:35:15 1.12 +++ /project/cxml/cvsroot/cxml/dom/dom-builder.lisp 2007/07/22 19:59:26 1.13 @@ -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.