(mm-make-temp-file): Be always alias to make-temp-file.

diff --git a/ChangeLog b/ChangeLog
index 847e93c..fcf4584 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/nnheader.el (mm-make-temp-file): Be always alias to
+       make-temp-file.
+
 2006-01-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * Makefile.in (clean): Clean all subdirectories; remove *~.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index c1f1cf5..879f17b 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -311,19 +311,7 @@ nil, ."
                 (t
                  (lambda nil enable-multibyte-characters))))
 
-  ;; Should keep track of the same alias in mm-util.el.
-  (defalias 'mm-make-temp-file
-    (if (fboundp 'make-temp-file)
-       'make-temp-file
-      (lambda (prefix &optional dir-flag)
-       (let ((file (expand-file-name
-                    (make-temp-name prefix)
-                    (if (fboundp 'temp-directory)
-                        (temp-directory)
-                      temporary-file-directory))))
-         (if dir-flag
-             (make-directory file))
-         file))))
+  (defalias 'mm-make-temp-file 'make-temp-file)
 
   ;; Should keep track of `mm-coding-system-p' in mm-util.el.
   (defun nnheader-coding-system-p (sym)