[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