Lin to tables.

Lin to tables.
New unicode flag.
This commit is contained in:
aarne
2003-11-10 14:57:51 +00:00
parent c84ce99de2
commit 7a44450b34
6 changed files with 32 additions and 11 deletions

View File

@@ -426,7 +426,7 @@ displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [
opts = addOptions (optsSState state) -- state opts override
(addOption (markLin mark) (globalOptions env))
lin (n,gr) = (n, map uni $ linearizeState noWrap opts gr zipper) where
uni = optEncodeUTF8 n gr . mkUnicode
uni = optEncodeUTF8 gr . mkUnicode
exp = prprTree $ loc2tree zipper
zipper = stateSState state
linAll = map lin lgrs