diff src/settings.sml @ 2189:43393a4a66ce

JavaScript versions of a few more functions
author Adam Chlipala <adam@chlipala.net>
date Sun, 01 Nov 2015 14:17:09 -0500
parents 14c45a0b6362
children fb113569519e 985c8016b592
line wrap: on
line diff
--- a/src/settings.sml	Sun Nov 01 12:23:44 2015 -0500
+++ b/src/settings.sml	Sun Nov 01 14:17:09 2015 -0500
@@ -376,7 +376,10 @@
                           ("atom", "atom"),
                           ("css_url", "css_url"),
                           ("property", "property"),
-                          ("giveFocus", "giveFocus")]
+                          ("giveFocus", "giveFocus"),
+
+                          ("htmlifySpecialChar", "htmlifySpecialChar"),
+                          ("chr", "chr")]
 val jsFuncs = ref jsFuncsBase
 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
 fun jsFunc x = M.find (!jsFuncs, x)