procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Treat windows-nt like ms-dos for DOC file name.
This commit is contained in:
Richard M. Stallman 1994-11-01 05:56:55 +00:00
parent 57f2b3e4f3
commit b752147426
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/loadup.el
View file

@ -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))