X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=blobdiff_plain;f=pret-lam.lua;h=12fa94ec89c5f2cc6d1b8e5afe6b9358aca29f7a;hp=1f073f83c7653b2ec3dd967062625e4224a8efc9;hb=bf2b6c6c3729b49e008e8afffdd379f03d603b37;hpb=bc374390a1c3db1c12f90e35d3b769dd537a846c

diff --git a/pret-lam.lua b/pret-lam.lua
index 1f073f8..12fa94e 100644
--- a/pret-lam.lua
+++ b/pret-lam.lua
@@ -21,7 +21,7 @@ local symbols = {
     -- (U+00A0).
     [' '] = {repr = ' '},
     ['_'] = {repr = '\\_'},
-    ['->'] = {repr = '\\rightarrow'},
+    ['->'] = {repr = '→'},
     ['=>'] = {repr = '⇒'},
     -- The default * sits very high above the baseline, \ast (u+2217) looks
     -- better.
@@ -108,7 +108,7 @@ local function do_subscripts(word)
             submatches[#submatches+1] = "^(" .. base .. ")([%a%d])$"
             -- Seconde, the base with a longer prefix that includes at least
             -- one of +-, (to catch things like ri+1, but not return).
-            submatches[#submatches+1] = "^(" .. base .. ")([%a%d]*[%-%+%,]+[%a%d%-%+%,]*)$"
+            submatches[#submatches+1] = "^(" .. base .. ")([%a%d]*[%-%+,]+[%a%d%-%+,]*)$"
         end
     end
     return word