[MLton-commit] r5786

[Vesa Karvonen]

Bugfix.
----------------------------------------------------------------------

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-07-21 23:43:59 UTC (rev 5785)
+++ mlton/trunk/ide/emacs/bg-build-mode.el	2007-07-22 15:51:14 UTC (rev 5786)
@@ -48,16 +48,16 @@
 
 (defcustom bg-build-action-on-failure (function first-error)
   "Optional action to perform when build fails."
-  :type '(choice
-          (const :tag "None" (function (lambda () nil)))
+  :type `(choice
+          (const :tag "None" ,(function (lambda () nil)))
           (function :tag "Action"))
   :group 'bg-build)
 
 (defcustom bg-build-action-on-messages (function first-error)
   "Optional action to perform when build does not fail, but produces
 messages (typically warnings)."
-  :type '(choice
-          (const :tag "None" (function (lambda () nil)))
+  :type `(choice
+          (const :tag "None" ,(function (lambda () nil)))
           (function :tag "Action"))
   :group 'bg-build)