[MLton-commit] r6112

[Vesa Karvonen]

Hopefully a temporary hack to get more accurate highlighting of errors
with sml-mode and XEmacs.  I'm assuming that most users of this mode are
using it with MLton.

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

U   mlton/trunk/ide/emacs/bg-build-mode.el

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

Modified: mlton/trunk/ide/emacs/bg-build-mode.el
===================================================================
--- mlton/trunk/ide/emacs/bg-build-mode.el	2007-11-01 02:18:15 UTC (rev 6111)
+++ mlton/trunk/ide/emacs/bg-build-mode.el	2007-11-02 09:03:57 UTC (rev 6112)
@@ -325,12 +325,15 @@
                                        (save-excursion
                                          (goto-char begin)
                                          (condition-case ()
-                                             (forward-sexp)
+                                             (sml-user-forward-sexp) ;; XXX
                                            (error
                                             (condition-case ()
-                                                (forward-word 1)
+                                                (forward-sexp)
                                               (error
-                                               ))))
+                                               (condition-case ()
+                                                   (forward-word 1)
+                                                 (error
+                                                  ))))))
                                          (point)))
                                       (overlay
                                        (make-overlay begin beyond)))