(coding-system-list): Moved to mule.el.

[gnu-emacs] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 262f4c1e92c7d35594e6e250ce93c1b1693ab317..dbc8966d08cb0fd81e27cc78781a1083d29ba633 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -225,7 +225,15 @@
       (setq tem (cdr tem))))
   (princ ")))\n" (current-buffer))
   (write-region (point-min) (point-max)
-               (expand-file-name (format "fns-%s.el" emacs-version)))
+               (expand-file-name
+                (cond 
+                 ((eq system-type 'ms-dos)
+                  "../lib-src/fns.el")
+                 ((eq system-type 'windows-nt)
+                  (format "../../../lib-src/fns-%s.el" emacs-version))
+                 (t
+                  (format "../lib-src/fns-%s.el" emacs-version)))
+                invocation-directory))
   (erase-buffer))
 (setq load-history nil)
 (set-buffer-modified-p nil)