[MLton-commit] r6288

[Vesa K. <ve...@ml...>]

Fit to 80 columns.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/def-use-data.el

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

Modified: mlton/trunk/ide/emacs/def-use-data.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-data.el	2007-12-21 19:51:52 UTC (rev 6287)
+++ mlton/trunk/ide/emacs/def-use-data.el	2007-12-23 11:14:51 UTC (rev 6288)
@@ -162,9 +162,10 @@
            ((not name)
             (message "Point does not appear to be on a symbol."))
            ((and sym (not (string= (def-use-sym-name sym) name)))
-            (message "Symbol at point, %s, does not match symbol, %s, in info.  Check major mode."
-                     name
-                     (def-use-sym-name sym)))
+            (message
+             "Symbol at point, %s, does not match, %s, in info.  Check mode."
+             name
+             (def-use-sym-name sym)))
            (t
             (let* ((attrs (def-use-attrs))
                    (file (def-use-ref-src ref))