[MLton-commit] r5084

[Vesa Karvonen]

Fixed to work when buffer has no file name.

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

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

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

Modified: mlton/trunk/ide/emacs/def-use-util.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-util.el	2007-01-30 08:40:24 UTC (rev 5083)
+++ mlton/trunk/ide/emacs/def-use-util.el	2007-01-30 13:06:22 UTC (rev 5084)
@@ -20,7 +20,9 @@
 
 (defun def-use-buffer-true-file-name ()
   "Returns the true filename of the current buffer."
-  (def-use-file-truename (buffer-file-name)))
+  (let ((name (buffer-file-name)))
+    (when name
+      (def-use-file-truename name))))
 
 (defun def-use-point-at-next-line ()
   "Returns point at the beginning of the next line."