[MLton-commit] r6081

[Vesa Karvonen]

Regexp for numeric literals.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/esml-util.el

----------------------------------------------------------------------

Modified: mlton/trunk/ide/emacs/esml-util.el
===================================================================
--- mlton/trunk/ide/emacs/esml-util.el	2007-10-24 12:29:43 UTC (rev 6080)
+++ mlton/trunk/ide/emacs/esml-util.el	2007-10-25 06:51:10 UTC (rev 6081)
@@ -31,6 +31,10 @@
   "A list of alphanumeric keywords or reserved words as well as
 non-bindable identifiers defined in various sections of the Definition")
 
+(defconst esml-sml-numeric-literal-regexp
+  "\\(?:\\(?:0w\\)?[0-9]+\\|0w?x[0-9a-fA-F]+\\)"
+  "Regexp matching the syntax of Standard ML numeric literals.")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Some general purpose Emacs Lisp utility functions