blob: 5f93219c9143146e9bc90daced94c14090219ee4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
--- lisp/loadup.el.orig Wed Apr 10 16:53:14 2002
+++ lisp/loadup.el Wed Apr 10 16:55:48 2002
@@ -264,7 +264,7 @@
(if (memq system-type '(ms-dos windows-nt))
(setq name (expand-file-name
(if (fboundp 'x-create-frame) "DOC-X" "DOC") "../etc"))
- (setq name (concat (expand-file-name "../etc/DOC-") name))
+ (setq name (concat (expand-file-name "../etc/DOC-EMCWS-") name))
(if (file-exists-p name)
(delete-file name))
(copy-file (expand-file-name "../etc/DOC") name t))
@@ -300,11 +300,11 @@
(expand-file-name
(cond
((eq system-type 'ms-dos)
- "../lib-src/fns.el")
+ "../lib-src/fnsemcws.el")
((eq system-type 'windows-nt)
- (format "../../../lib-src/fns-%s.el" emacs-version))
+ (format "../../../lib-src/fns-emcws-%s.el" emacs-version))
(t
- (format "../lib-src/fns-%s.el" emacs-version)))
+ (format "../lib-src/fns-emcws-%s.el" emacs-version)))
invocation-directory))
(erase-buffer)
(setq load-history nil))
|