26 lines
1 KiB
Text
26 lines
1 KiB
Text
--- 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))
|