From 608cf07d5f08dd7230016dadfe688239f35e7f81 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 11 Oct 2010 01:11:00 +0200 Subject: beta 2010.10.11 01:11 --- tex/context/base/lxml-tex.lua | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'tex/context/base/lxml-tex.lua') 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 -- cgit v1.2.3