Fix snafu with missing etc/DOC-X.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 00c523410585faa413a917f40fb7c91ae8269a8a..e5406b6551f0c1938ba03b15d62fcfdb2cbebb73 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -311,8 +311,18 @@
                           "-"
                           (substring name (match-end 0)))))
       (if (memq system-type '(ms-dos windows-nt))
-         (setq name (expand-file-name
-                     (if (fboundp 'x-create-frame) "DOC-X" "DOC") "../etc"))
+         (let ((name1 (expand-file-name
+                       (if (fboundp 'x-create-frame) "DOC-X" "DOC")
+                       "../etc")))
+           ;; There will be no DOC-X on MS-Windows when we build
+           ;; using the Posix Makefile's.  In that case, we want
+           ;; to create DOC-XX.YY.ZZ, as on Unix.
+           (if (file-exists-p name)
+               (setq name name1)
+             (setq name (concat (expand-file-name "../etc/DOC-") name))
+             (if (file-exists-p name)
+                 (delete-file name))
+             (copy-file (expand-file-name "../etc/DOC") name t)))
        (setq name (concat (expand-file-name "../etc/DOC-") name))
        (if (file-exists-p name)
            (delete-file name))