[MLton-commit] r5702

Vesa Karvonen vesak at mlton.org
Sun Jul 1 05:12:45 PDT 2007


Don't go to the beginning of the messages.  Doing so is annoying with
longer outputs and when monitoring the build.  Also, first-error jumps to
the first error regardless of where the cursor is at the end.

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

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-01 12:07:17 UTC (rev 5701)
+++ mlton/trunk/ide/emacs/bg-build-mode.el	2007-07-01 12:12:44 UTC (rev 5702)
@@ -209,13 +209,10 @@
              'kill-buffer-hook
              (bg-build-kill-buffer-hook project))
             (setq buffer-read-only nil)
-            (let ((point (point))
-                  (point-max (point-max)))
-              (goto-char point-max)
+            (let ((point (point)))
+              (goto-char (point-max))
               (insert "\n" event)
-              (if (= point point-max)
-                  (goto-line 3)
-                  (goto-char point)))
+              (goto-char point))
             (setq buffer-read-only t)
             (let ((previous (assoc file bg-build-finished-builds)))
               (when previous




More information about the MLton-commit mailing list