From 9935a2cdfc7875c4405741b780551a7ad2ab6399 Mon Sep 17 00:00:00 2001 From: Sergey Bolshakov Date: Tue, 26 Jun 2007 13:59:05 +0400 Subject: [PATCH 1/4] reverted fix for sf bug #596959, seems unneeded --- tclxml/tclxml-tcl/sgmlparser.tcl | 5 ----- 1 file changed, 5 deletions(-) diff --git a/tclxml/tclxml-tcl/sgmlparser.tcl b/tclxml/tclxml-tcl/sgmlparser.tcl index 2e15244..1da1d3b 100755 --- a/tclxml/tclxml-tcl/sgmlparser.tcl +++ b/tclxml/tclxml-tcl/sgmlparser.tcl @@ -155,11 +155,6 @@ proc sgml::tokenise {sgml elemExpr elemSub args} { set state(leftover) $rest } - # Patch from bug report #596959, Marshall Rose - if {[string compare [lindex $sgml 4] ""]} { - set sgml [linsert $sgml 0 {} {} {} {} {}] - } - } else { # Performance note (Tcl 8.0): -- 2.24.0