[MLton-commit] r5152

Vesa Karvonen vesak at mlton.org
Thu Feb 8 04:58:43 PST 2007


Better error messages.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/esml-mlb-mode.el
U   mlton/trunk/ide/emacs/esml-util.el

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

Modified: mlton/trunk/ide/emacs/esml-mlb-mode.el
===================================================================
--- mlton/trunk/ide/emacs/esml-mlb-mode.el	2007-02-08 12:44:31 UTC (rev 5151)
+++ mlton/trunk/ide/emacs/esml-mlb-mode.el	2007-02-08 12:58:42 UTC (rev 5152)
@@ -674,7 +674,7 @@
                            ".basis"))
                 (buffer (get-buffer-create esml-mlb-show-basis-process-name)))
     (when (file-exists-p tmp-file)
-      (esml-error "temporary basis file already exists: %s" tmp-file))
+      (esml-error "Temporary basis file already exists: %s" tmp-file))
     (save-excursion
       (set-buffer buffer)
       (delete-region (point-min) (point-max)))

Modified: mlton/trunk/ide/emacs/esml-util.el
===================================================================
--- mlton/trunk/ide/emacs/esml-util.el	2007-02-08 12:44:31 UTC (rev 5151)
+++ mlton/trunk/ide/emacs/esml-util.el	2007-02-08 12:58:42 UTC (rev 5152)
@@ -45,9 +45,8 @@
 ;; workaround for incompatibility between GNU Emacs and XEmacs
 (if (string-match "XEmacs" emacs-version)
     (defun esml-error (str &rest objs)
-      (error 'error (apply (function format) str objs)))
-  (defun esml-error (str &rest objs)
-    (apply (function error) str objs)))
+      (error 'error (concat "Error: " (apply (function format) str objs) ".")))
+  (defalias 'esml-error (function error)))
 
 (defun esml-string-matches-p (regexp str)
   "Non-nil iff the entire string matches the regexp."




More information about the MLton-commit mailing list