[MLton-commit] r5898

[Vesa Karvonen]

Ignore errors from user action.

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

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-08-20 09:20:23 UTC (rev 5897)
+++ mlton/trunk/ide/emacs/bg-build-mode.el	2007-08-20 11:06:49 UTC (rev 5898)
@@ -382,7 +382,10 @@
         (cond
          ((string-match "EXITED ABNORMALLY WITH CODE \\([^\n]+\\)\n" event)
           (with-current-buffer buffer
-            (funcall bg-build-action-on-failure))
+            (condition-case ()
+                (funcall bg-build-action-on-failure)
+              (error
+               )))
           (when (memq 'failure bg-build-notify)
             (message "FAILED, %d MESSAGE(S): %s"
                      (with-current-buffer buffer