diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/lang-url.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/lang-url.lua | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/lang-url.lua b/Master/texmf-dist/tex/context/base/mkiv/lang-url.lua index 7428d64ab24..7a8b7ca86c3 100644 --- a/Master/texmf-dist/tex/context/base/mkiv/lang-url.lua +++ b/Master/texmf-dist/tex/context/base/mkiv/lang-url.lua @@ -9,7 +9,9 @@ if not modules then modules = { } end modules ['lang-url'] = { local utfcharacters, utfbyte, utfchar = utf.characters, utf.byte, utf.char local min, max = math.min, math.max -local context = context +local context = context +local ctx_pushcatcodes = context.pushcatcodes +local ctx_popcatcodes = context.popcatcodes local implement = interfaces.implement local variables = interfaces.variables @@ -190,9 +192,9 @@ local function action(hyphenatedurl,str,left,right,disc) end end if dodi then - list[i] = "\\d" + list[i] = "\\lang_url_d " else - list[i] = "\\" .. what .. "{" .. utfbyte(char) .. "}" + list[i] = "\\lang_url_" .. what .. "{" .. utfbyte(char) .. "}" end prev = char end @@ -200,7 +202,9 @@ local function action(hyphenatedurl,str,left,right,disc) report("old : %s",str) report("new : %t",list) end + ctx_pushcatcodes("prtcatcodes") context("%t",list) + ctx_popcatcodes() end -- urls.action = function(_,...) action(...) end -- sort of obsolete |