diff options
author | Mojca Miklavec <mojca.miklavec@gmail.com> | 2012-05-28 22:57:04 +0000 |
---|---|---|
committer | Mojca Miklavec <mojca.miklavec@gmail.com> | 2012-05-28 22:57:04 +0000 |
commit | 3f188c7493724d0cf0660657c90ff9be76d29ddb (patch) | |
tree | 65d4f730463ab70db723009cc976047649fe49a5 /Master/texmf-dist/tex/context/base/l-file.lua | |
parent | 9cc6cda737c19f4ca2e6af81ed487ae7e51bdbe6 (diff) |
ConTeXt 2012.05.29 00:12
git-svn-id: svn://tug.org/texlive/trunk@26706 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/l-file.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/l-file.lua | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/texmf-dist/tex/context/base/l-file.lua b/Master/texmf-dist/tex/context/base/l-file.lua index 48f6a39fe8b..edfbc0f92b5 100644 --- a/Master/texmf-dist/tex/context/base/l-file.lua +++ b/Master/texmf-dist/tex/context/base/l-file.lua @@ -26,8 +26,12 @@ local function basename(name) return match(name,"^.+[/\\](.-)$") or name end +-- local function nameonly(name) +-- return (gsub(match(name,"^.+[/\\](.-)$") or name,"%..*$","")) +-- end + local function nameonly(name) - return (gsub(match(name,"^.+[/\\](.-)$") or name,"%..*$","")) + return (gsub(match(name,"^.+[/\\](.-)$") or name,"%.[%a%d]+$","")) end local function extname(name,default) |