[MLton-commit] r5711

[Vesa Karvonen]

Kludge to fix Emacs compatibility.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/compat.el
U   mlton/trunk/ide/emacs/esml-du-mlton.el

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

Modified: mlton/trunk/ide/emacs/compat.el
===================================================================
--- mlton/trunk/ide/emacs/compat.el	2007-07-02 03:59:14 UTC (rev 5710)
+++ mlton/trunk/ide/emacs/compat.el	2007-07-02 10:47:51 UTC (rev 5711)
@@ -31,6 +31,11 @@
     (defalias 'compat-delete-timer (function delete-itimer))
   (defalias 'compat-delete-timer (function cancel-timer)))
 
+(if (string-match "XEmacs" emacs-version)
+    (defalias 'compat-read-file-name (function read-file-name))
+  (defun compat-read-file-name (&optional a b c d e f)
+    (funcall (function read-file-name) a b c d e)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (provide 'compat)

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-07-02 03:59:14 UTC (rev 5710)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-07-02 10:47:51 UTC (rev 5711)
@@ -63,7 +63,7 @@
   (cond
    ((not duf)
     (esml-du-mlton
-     (read-file-name
+     (compat-read-file-name
       "Specify def-use -file: " nil nil t nil 'esml-du-mlton-history)))
    ((not (and (file-readable-p duf)
               (file-regular-p duf)))