(buffer-undo-list): For ms-dos, use fns.el without the

version string.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 1bfcad604bffdb53816f2c3585cde626232c3c7f..254b6ad2c24ceade617502b0e88e731100b7c2f3 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -225,9 +225,11 @@
       (setq tem (cdr tem))))
   (princ ")))\n" (current-buffer))
   (write-region (point-min) (point-max)
-               (expand-file-name (convert-standard-filename
-                                  (format "../lisp/fns-%s.el" emacs-version))
-                                  invocation-directory))
+               (expand-file-name
+                (if (eq system-type 'ms-dos)
+                    "../lisp/fns.el"
+                  (format "../lisp/fns-%s.el" emacs-version))
+                invocation-directory))
   (erase-buffer))
 (setq load-history nil)
 (set-buffer-modified-p nil)