[MLton-commit] r5121

[Vesa Karvonen]

Show some status in title.

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

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-04 08:46:27 UTC (rev 5120)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-04 09:14:55 UTC (rev 5121)
@@ -25,7 +25,19 @@
 ;; Methods
 
 (defun esml-du-title (ctx)
-  (esml-du-ctx-duf ctx))
+  (concat
+   (esml-du-ctx-duf ctx)
+   " ["
+   (if (esml-du-ctx-buf ctx)
+       (concat "parsing: "
+               (int-to-string
+                (truncate
+                 (/ (buffer-size (esml-du-ctx-buf ctx))
+                    0.01
+                    (nth 7 (esml-du-ctx-attr ctx)))))
+               "% left")
+     "complete")
+   "]"))
 
 (defun esml-du-sym-at-ref (ref ctx)
   (if (def-use-attr-newer?