[MLton-commit] r5136

[Vesa Karvonen]

Use proper format strings.

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

U   mlton/trunk/ide/emacs/def-use-mode.el
U   mlton/trunk/ide/emacs/esml-du-mlton.el

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

Modified: mlton/trunk/ide/emacs/def-use-mode.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-mode.el	2007-02-05 11:45:23 UTC (rev 5135)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-02-05 11:58:58 UTC (rev 5136)
@@ -163,7 +163,7 @@
   (interactive "P")
   (let ((sym (def-use-current-sym)))
     (if (not sym)
-        (message def-use-apology)
+        (message "%s" def-use-apology)
       (def-use-goto-ref (def-use-sym-ref sym) other-window))))
 
 (defun def-use-jump-to-next (&optional other-window reverse)
@@ -172,7 +172,7 @@
   (let* ((ref (def-use-current-ref))
          (sym (def-use-sym-at-ref ref)))
     (if (not sym)
-        (message def-use-apology)
+        (message "%s" def-use-apology)
       (let* ((refs (def-use-all-refs-sorted sym))
              (refs (if reverse (reverse refs) refs))
              (refs (append refs refs)))
@@ -237,7 +237,7 @@
   (let* ((ref (def-use-current-ref))
          (sym (def-use-sym-at-ref ref)))
     (if (not sym)
-        (message def-use-apology)
+        (message "%s" def-use-apology)
       (let* ((name (concat "<:" (def-use-format-sym sym) ":>"))
              (buffer (get-buffer name)))
         (if buffer
@@ -314,8 +314,8 @@
   (interactive)
   (let ((sym (def-use-current-sym)))
     (if (not sym)
-        (message def-use-apology)
-      (message (def-use-format-sym sym)))))
+        (message "%s" def-use-apology)
+      (message "%s" (def-use-format-sym sym)))))
 
 (defun def-use-format-sym (sym)
   "Formats a string with some basic info on the symbol."

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 11:45:23 UTC (rev 5135)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 11:58:58 UTC (rev 5136)
@@ -179,9 +179,9 @@
     (lambda (ctx)
       (kill-buffer (esml-du-ctx-buf ctx))
       (esml-du-ctx-set-buf nil ctx)
-      (message (concat "Finished parsing " (esml-du-ctx-duf ctx) "."))))
+      (message "Finished parsing %s." (esml-du-ctx-duf ctx))))
    ctx)
-  (message (concat "Parsing " (esml-du-ctx-duf ctx) " in the background...")))
+  (message "Parsing %s in the background..." (esml-du-ctx-duf ctx)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;