diff options
author | Hans Hagen <pragma@wxs.nl> | 2019-03-23 23:12:42 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-03-23 23:12:42 +0100 |
commit | 15c9a0a54f08ffc9fb72d6d878db4602ac6e1ca2 (patch) | |
tree | 19f4f5a061de3fe14f8e990437c69f740026e9a1 /tex/context/base/mkiv/font-syn.lua | |
parent | b958bba841f9907582f3c5fa4b6162353636fc8f (diff) | |
download | context-15c9a0a54f08ffc9fb72d6d878db4602ac6e1ca2.tar.gz |
2019-03-21 21:47:00current
Diffstat (limited to 'tex/context/base/mkiv/font-syn.lua')
-rw-r--r-- | tex/context/base/mkiv/font-syn.lua | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/tex/context/base/mkiv/font-syn.lua b/tex/context/base/mkiv/font-syn.lua index dfe32b57b..18c25fbfd 100644 --- a/tex/context/base/mkiv/font-syn.lua +++ b/tex/context/base/mkiv/font-syn.lua @@ -515,15 +515,20 @@ local function cleanname(name) end local function cleanfilename(fullname,defaultsuffix) - local path, name, suffix = splitname(fullname) - name = gsub(lower(name),"[^%a%d]","") - if suffix and suffix ~= "" then - return name .. ".".. suffix - elseif defaultsuffix and defaultsuffix ~= "" then - return name .. ".".. defaultsuffix - else - return name + if fullname then + local path, name, suffix = splitname(fullname) + if name then + name = gsub(lower(name),"[^%a%d]","") + if suffix and suffix ~= "" then + return name .. ".".. suffix + elseif defaultsuffix and defaultsuffix ~= "" then + return name .. ".".. defaultsuffix + else + return name + end + end end + return "badfontname" end local sorter = function(a,b) |