From: tomo <tomo>
Date: Tue, 19 Feb 2002 10:03:18 +0000 (+0000)
Subject: Load lisp/utf-2000/dumped-chars.el in UTF-2000; append
X-Git-Tag: r21-2-44-lazy-n7c~98
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4f1f3bd67e568eb38bd1f71168c649fdf32dee12;p=chise%2Fxemacs-chise.git.1

Load lisp/utf-2000/dumped-chars.el in UTF-2000; append
`system-char-db-source-file-list' into `preloaded-file-list' in
UTF-2000.
---

diff --git a/lisp/update-elc.el b/lisp/update-elc.el
index 777017a..7207761 100644
--- a/lisp/update-elc.el
+++ b/lisp/update-elc.el
@@ -87,6 +87,9 @@
 (let (preloaded-file-list site-load-packages need-to-dump dumped-exe)
   (load (expand-file-name "../lisp/dumped-lisp.el"))
 
+  (when (featurep 'utf-2000)
+    (load (expand-file-name "../lisp/utf-2000/dumped-chars.el")))
+
   (setq dumped-exe
 	(cond ((file-exists-p "../src/xemacs.exe") "../src/xemacs.exe")
 	      ((file-exists-p "../src/xemacs") "../src/xemacs")
@@ -106,6 +109,8 @@
   (setq preloaded-file-list
 	(append packages-hardcoded-lisp
 		preloaded-file-list
+		(if (featurep 'utf-2000)
+		    system-char-db-source-file-list)
 		packages-useful-lisp
 		site-load-packages))
   (while preloaded-file-list