diff options
| author | aarne <unknown> | 2004-01-26 08:39:52 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-01-26 08:39:52 +0000 |
| commit | f807f76211d0901a7a462ab1ee0a6b60ca1ce207 (patch) | |
| tree | efccf688ffc1498fbaeae5b6f5f596b5da330244 /src/GF/Shell | |
| parent | 7362e70af9bae99dc0af5e1460f5d5c00db86145 (diff) | |
Improved unicode output.
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/Commands.hs | 2 | ||||
| -rw-r--r-- | src/GF/Shell/JGF.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs index 00d8d176b..e1c0736ab 100644 --- a/src/GF/Shell/Commands.hs +++ b/src/GF/Shell/Commands.hs @@ -414,7 +414,7 @@ displaySStateJavaX isNew 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 gr . mkUnicode + uni = {- optEncodeUTF8 gr . -} mkUnicode exp = prprTree $ loc2tree zipper zipper = stateSState state linAll = map lin lgrs diff --git a/src/GF/Shell/JGF.hs b/src/GF/Shell/JGF.hs index 309ee40c9..86a7d77fb 100644 --- a/src/GF/Shell/JGF.hs +++ b/src/GF/Shell/JGF.hs @@ -56,5 +56,5 @@ initEditMsgJavaX env = encodeUTF8 $ unlines $ tagXML "gfinit" $ concat [tagAttrXML "language" ("file",file) [prLanguage lang] | (file,lang) <- zip (allGrammarFileNames env) (allLanguages env)] -initAndEditMsgJavaX isNew env state = +initAndEditMsgJavaX isNew env state = encodeUTF8 $ initEditMsgJavaX env ++++ displaySStateJavaX isNew env state |