[MLton-commit] r5756

Vesa Karvonen vesak at mlton.org
Wed Jul 11 03:15:46 PDT 2007


Only whitespace changes.
----------------------------------------------------------------------

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-11 03:47:45 UTC (rev 5755)
+++ mlton/trunk/ide/emacs/bg-build-mode.el	2007-07-11 10:15:45 UTC (rev 5756)
@@ -418,7 +418,9 @@
   (setq bg-build-counter (1+ bg-build-counter))
   (let* ((file (car project))
          (directory (file-name-directory file))
-         (name (format "*%s (bg-build: %d)*" (bg-build-prj-name project) bg-build-counter))
+         (name (format "*%s (bg-build: %d)*"
+                       (bg-build-prj-name project)
+                       bg-build-counter))
          (shell (bg-build-prj-shell project)))
     (when (and name shell)
       (let* ((buffer (generate-new-buffer name))
@@ -556,23 +558,24 @@
           (mapc (function
                  (lambda (project)
                    (let ((file (car project)))
-                     (insert (let ((n (length (member project bg-build-build-queue))))
-                               (if (zerop n) "  " (format "%2d" n)))
-                             (if (assoc file bg-build-live-builds) "L" " ")
-                             (let ((buffer
-                                    (bg-build-assoc-cdr
-                                     file bg-build-finished-builds)))
-                               (cond ((and buffer
-                                           (with-current-buffer buffer
-                                             bg-build-messages))
-                                      "FM")
-                                     (buffer
-                                      "F ")
-                                     (t
-                                      "  ")))
-                             "  | "
-                             (bg-build-prj-name project) " (" file ")"
-                             "\n"))))
+                     (insert
+                      (let ((n (length (member project bg-build-build-queue))))
+                        (if (zerop n) "  " (format "%2d" n)))
+                      (if (assoc file bg-build-live-builds) "L" " ")
+                      (let ((buffer
+                             (bg-build-assoc-cdr
+                              file bg-build-finished-builds)))
+                        (cond ((and buffer
+                                    (with-current-buffer buffer
+                                      bg-build-messages))
+                               "FM")
+                              (buffer
+                               "F ")
+                              (t
+                               "  ")))
+                      "  | "
+                      (bg-build-prj-name project) " (" file ")"
+                      "\n"))))
                 bg-build-projects)
           (insert "\nTotal of " (number-to-string bg-build-counter)
                   " builds started.\n")




More information about the MLton-commit mailing list