luamplib (26mar15)

git-svn-id: svn://tug.org/texlive/trunk@36637 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 7 insertions, 3 deletions

diff --git a/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua b/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua
index 9a8e1aad02f..98abf0866d1 100644
--- a/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua
+++ b/Master/texmf-dist/tex/luatex/luamplib/luamplib.lua
@@ -18,8 +18,8 @@ luamplib.lastlog  = ""
 
 local err, warn, info, log = luatexbase.provides_module({
   name          = "luamplib",
-  version       = "2.10.0",
-  date          = "2015/03/20",
+  version       = "2.10.1",
+  date          = "2015/03/26",
   description   = "Lua package to typeset Metapost with LuaTeX's MPLib.",
 })
 
@@ -189,6 +189,7 @@ local esclbr = "!!!!!LEFTBRCE!!!!!"
 local escrbr = "!!!!!RGHTBRCE!!!!!"
 local escshar = "!!!!!SHARPE!!!!!"
 local escpcnt = "!!!!!PERCENT!!!!!"
+local eschash = "!!!!!HASH!!!!!"
 local begname = "%f[A-Z_a-z]"
 local endname = "%f[^A-Z_a-z]"
 
@@ -670,6 +671,9 @@ local function protecttextext(data)
         cnt,opt,str)
       return format("\\csname mpxcolor%i\\endcsname",cnt)
     end)
+  data = stringgsub(data, "([`\\])#", "%1"..eschash)
+  data = stringgsub(data, "#", "##")
+  data = stringgsub(data, eschash, "#")
   texsprint(data)
 end
 
diff --git a/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty b/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty
index 1fdda30df69..3df40753ad1 100644
--- a/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty
+++ b/Master/texmf-dist/tex/luatex/luamplib/luamplib.sty
@@ -14,7 +14,7 @@
 \else
   \NeedsTeXFormat{LaTeX2e}
   \ProvidesPackage{luamplib}
-    [2015/03/20 v2.10.0 mplib package for LuaTeX]
+    [2015/03/26 v2.10.1 mplib package for LuaTeX]
   \RequirePackage{luatexbase-modutils}
 \fi
 \RequireLuaModule{luamplib}