blob: 3b471abbd9759f8281326fb23cf1b7f00e2b7fa0 (
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 Sun Dec 2 22:10:51 2001
+++ lisp/loadup.el Sun Dec 2 22:12:10 2001
@@ -246,7 +246,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))
@@ -280,11 +280,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))
|