beta 2010.10.11 01:11

1 files changed, 10 insertions, 4 deletions

diff --git a/tex/context/base/lxml-tex.lua b/tex/context/base/lxml-tex.lua
index a90844d2e..407d5eda8 100644
--- a/tex/context/base/lxml-tex.lua
+++ b/tex/context/base/lxml-tex.lua
@@ -988,18 +988,24 @@ local function text(collected)
     end
 end
 
-local function stripped(collected)
+local function ctxtext(collected)
     if collected then
         for c=1,#collected do
-            cprint(xml.stripelement(collected[c]))
+            texsprint(ctxcatcodes,collected[1].dt)
         end
     end
 end
 
-local function ctxtext(collected)
+--~     local str = xmltext(getid(id),pattern) or ""
+--~     str = gsub(str,"^%s*(.-)%s*$","%1")
+--~     if nolines then
+--~         str = gsub(str,"%s+"," ")
+--~     end
+
+local function stripped(collected) -- tricky as we strip in place
     if collected then
         for c=1,#collected do
-            texsprint(ctxcatcodes,collected[1].dt)
+            cprint(xml.stripelement(collected[c]))
         end
     end
 end