Commit b7521474 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

On windows-nt, load ls-lisp and winnt.

Treat windows-nt like ms-dos for DOC file name.
parent 57f2b3e4
......@@ -97,6 +97,11 @@
(progn
(garbage-collect)
(load "vms-patch")))
(if (eq system-type 'windows-nt)
(progn
(garbage-collect)
(load "ls-lisp")
(load "winnt")))
(if (eq system-type 'ms-dos)
(progn
(load "ls-lisp")
......@@ -160,7 +165,7 @@
(setq name (concat (downcase (substring name 0 (match-beginning 0)))
"-"
(substring name (match-end 0)))))
(if (eq system-type 'ms-dos)
(if (memq system-type '(ms-dos windows-nt))
(setq name (expand-file-name
(if (fboundp 'make-frame) "DOC-X" "DOC") "../etc"))
(setq name (concat (expand-file-name "../etc/DOC-") name))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment