From b7521474262fe8d65ebe91c1fc668d598426a9f0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Nov 1994 05:56:55 +0000 Subject: [PATCH] On windows-nt, load ls-lisp and winnt. Treat windows-nt like ms-dos for DOC file name. --- lisp/loadup.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/loadup.el b/lisp/loadup.el index d0afa2034ec..1912fe6326b 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -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)) -- 2.39.5