[MLton-commit] r5255

Vesa Karvonen vesak at mlton.org
Sun Feb 18 09:07:47 PST 2007


Perform loading with an idle delay in esml-du-mlton.
----------------------------------------------------------------------

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-18 16:09:29 UTC (rev 5254)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-18 17:07:46 UTC (rev 5255)
@@ -52,14 +52,19 @@
 (defun esml-du-mlton (duf)
   "Gets def-use information from a def-use file produced by MLton."
   (interactive "fSpecify def-use -file: ")
-  (let ((ctx (esml-du-ctx (def-use-file-truename duf))))
-    (esml-du-load ctx)
-    (def-use-add-dus
-      (function esml-du-title)
-      (function esml-du-sym-at-ref)
-      (function esml-du-sym-to-uses)
-      (function esml-du-finalize)
-      ctx)))
+  (run-with-idle-timer
+   0.5 nil
+   (function
+    (lambda (duf)
+      (let ((ctx (esml-du-ctx (def-use-file-truename duf))))
+        (esml-du-load ctx)
+        (def-use-add-dus
+          (function esml-du-title)
+          (function esml-du-sym-at-ref)
+          (function esml-du-sym-to-uses)
+          (function esml-du-finalize)
+          ctx))))
+   duf))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Move to symbol




More information about the MLton-commit mailing list