diff options
| author | Hans Hagen <pragma@wxs.nl> | 2014-01-16 18:46:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2014-01-16 18:46:00 +0100 |
| commit | 0c4e44dea8cce96b8507b1e2d7381de50b561830 (patch) | |
| tree | 6a86fc58ef9fc2e2f3f5e4fcc0fe8132f89f4b34 /tex/generic | |
| parent | 2f1f82d9aac25ec4b22eeb14b7af4da936deafd7 (diff) | |
| download | context-0c4e44dea8cce96b8507b1e2d7381de50b561830.tar.gz | |
beta 2014.01.16 18:46
Diffstat (limited to 'tex/generic')
| -rw-r--r-- | tex/generic/context/luatex/luatex-fonts-merged.lua | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index 6af830035..3e612d926 100644 --- a/tex/generic/context/luatex/luatex-fonts-merged.lua +++ b/tex/generic/context/luatex/luatex-fonts-merged.lua @@ -1,6 +1,6 @@ -- merged file : luatex-fonts-merged.lua -- parent file : luatex-fonts.lua --- merge date : 01/15/14 18:03:19 +-- merge date : 01/16/14 18:46:41 do -- begin closure to overcome local limits and interference @@ -395,7 +395,7 @@ function lpeg.replacer(one,two,makefunction,isutf) return pattern end end -function lpeg.finder(lst,makefunction) +function lpeg.finder(lst,makefunction,isutf) local pattern if type(lst)=="table" then pattern=P(false) @@ -411,7 +411,11 @@ function lpeg.finder(lst,makefunction) else pattern=P(lst) end - pattern=(1-pattern)^0*pattern + if isutf then + pattern=((utf8char or 1)-pattern)^0*pattern + else + pattern=(1-pattern)^0*pattern + end if makefunction then return function(str) return lpegmatch(pattern,str) |