Commit aab6a7e1 authored by david's avatar david

Revision: cxml--devel--1.0--patch-104

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Mon Feb  9 17:48:32 CET 2004
Standard-date: 2004-02-09 16:48:32 GMT
Modified-files: xml/dom-impl.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-104
Summary: oops, split-text korrigiert

oops, split-text korrigiert
parent 7476c8c0
......@@ -651,10 +651,11 @@
(with-slots (owner parent value) text
(unless (<= 0 offset (length value))
(dom-error :INDEX_SIZE_ERR "offset is invalid"))
(setf value (subseq value 0 offset))
(dom:insert-before parent
(dom:create-text-node owner (subseq value offset))
(dom:next-sibling text))))
(prog1
(dom:insert-before parent
(dom:create-text-node owner (subseq value offset))
(dom:next-sibling text))
(setf value (subseq value 0 offset)))))
;;; COMMENT -- nix
;;; CDATA-SECTION -- nix
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment