escaped square brackets in ekdosis.newpatttotag()

1 files changed, 3 insertions, 2 deletions

diff --git a/ekdosis.dtx b/ekdosis.dtx
index 71d68d2..d92dcd5 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -1049,7 +1049,7 @@ idno={}, msName={}, origDate={}][3]{%
 %<*lua>
 % \fi
 % \begin{ekdlua}
-
+-- `'
 -- This table will hold the functions:
 ekdosis = {}
 
@@ -1321,8 +1321,9 @@ function ekdosis.newcmdtotag(cmd, tag, attr)
 end
 
 function ekdosis.newpatttotag(pat, repl)
+   pat = string.gsub(pat, "([%[%]])", "%%%1")
    pat = string.gsub(pat, "%#[1-9]", "(.-)")
-   repl = string.gsub(repl, "%#", "%%")
+   repl = string.gsub(repl, "%#([1-9])", "%%%1")
    table.insert(texpatttotags, { a = pat, b = repl })
    return true
 end