diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-01 05:56:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-01 05:56:55 +0000 |
| commit | ef62e934b628b62482de219ba2ff3c02de3df512 (patch) | |
| tree | fc7b5365cbf208232f4f3f72c2f167d3bbd174d8 /lisp/loadup.el | |
| parent | eaf7651eabcddfe52e53f2f4ba1b97dbce518735 (diff) | |
| download | emacs-ef62e934b628b62482de219ba2ff3c02de3df512.tar.gz | |
On windows-nt, load ls-lisp and winnt.
Treat windows-nt like ms-dos for DOC file name.
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 7 |
1 files changed, 6 insertions, 1 deletions
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)) |