[MLton-commit] r5291

Vesa Karvonen vesak at mlton.org
Thu Feb 22 04:05:29 PST 2007


Fix.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-21 22:16:20 UTC (rev 5290)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-22 12:05:09 UTC (rev 5291)
@@ -88,7 +88,7 @@
           (fol (esml-du-character-class (char-after (1+ (point))))))
       (cond
        ((and (eq bef 'alphanumeric)
-             (= ?= (char-after))
+             (equal ?= (char-after))
              (not (eq fol 'symbolic)))
         (skip-chars-backward esml-sml-alphanumeric-chars limit))
        ((and (eq bef 'symbolic) (not (eq aft 'alphanumeric)))




More information about the MLton-commit mailing list