diff options
author | Hans Hagen <pragma@wxs.nl> | 2018-08-20 18:19:40 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-08-20 18:19:40 +0200 |
commit | eac3559b6b0ef831294368a3a835070ecd7c44fc (patch) | |
tree | 1345e7e40d4311cb2667874f22b5701b6fc25ee7 /tex/context/base/mkiv/util-env.lua | |
parent | 7539371c37c02bc2bc6c5d7ebffa2ffc6fec36c3 (diff) | |
download | context-eac3559b6b0ef831294368a3a835070ecd7c44fc.tar.gz |
2018-08-20 17:54:00
Diffstat (limited to 'tex/context/base/mkiv/util-env.lua')
-rw-r--r-- | tex/context/base/mkiv/util-env.lua | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/tex/context/base/mkiv/util-env.lua b/tex/context/base/mkiv/util-env.lua index 064bd513a..1ff4c7f23 100644 --- a/tex/context/base/mkiv/util-env.lua +++ b/tex/context/base/mkiv/util-env.lua @@ -281,13 +281,20 @@ if arg then for index=1,#arg do local argument = arg[index] if find(argument,"^\"") then - newarg[#newarg+1] = gsub(argument,"^\"","") - if not find(argument,"\"$") then + if find(argument,"\"$") then + newarg[#newarg+1] = gsub(argument,"^\"(.-)\"$","%1") + instring = false + else + newarg[#newarg+1] = gsub(argument,"^\"","") instring = true end elseif find(argument,"\"$") then - newarg[#newarg] = newarg[#newarg] .. " " .. gsub(argument,"\"$","") - instring = false + if instring then + newarg[#newarg] = newarg[#newarg] .. " " .. gsub(argument,"\"$","") + instring = false + else + newarg[#newarg+1] = argument + end elseif instring then newarg[#newarg] = newarg[#newarg] .. " " .. argument else |