aboutsummaryrefslogtreecommitdiff
path: root/japanese/emacs-emcws/files/patch-lisp:loadup.el
diff options
context:
space:
mode:
authorMunechika SUMIKAWA <sumikawa@FreeBSD.org>2002-05-24 17:02:58 +0000
committerMunechika SUMIKAWA <sumikawa@FreeBSD.org>2002-05-24 17:02:58 +0000
commit28bbc232488f0c149fc8208072c42c2021e0b5cb (patch)
tree725b989df5afb15ddc3274c4b42ebee09594979d /japanese/emacs-emcws/files/patch-lisp:loadup.el
parentfba33a8f85ffc371b9f88a260844668ee6d9a310 (diff)
Notes
Diffstat (limited to 'japanese/emacs-emcws/files/patch-lisp:loadup.el')
-rw-r--r--japanese/emacs-emcws/files/patch-lisp:loadup.el26
1 files changed, 26 insertions, 0 deletions
diff --git a/japanese/emacs-emcws/files/patch-lisp:loadup.el b/japanese/emacs-emcws/files/patch-lisp:loadup.el
new file mode 100644
index 000000000000..5f93219c9143
--- /dev/null
+++ b/japanese/emacs-emcws/files/patch-lisp:loadup.el
@@ -0,0 +1,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))