X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fdumped-lisp.el;h=f59b94489107ec0384664b07c653706fa72b55ea;hp=a2997323c035fae4c6d54d6a1181f2ca32382080;hb=b0360c4503dfc01c7b7e75e6170c32aa7d267291;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37

diff --git a/lisp/dumped-lisp.el b/lisp/dumped-lisp.el
index a299732..f59b944 100644
--- a/lisp/dumped-lisp.el
+++ b/lisp/dumped-lisp.el
@@ -1,3 +1,11 @@
+(defvar packages-hardcoded-lisp
+  '(
+    ;; Nothing at this time
+    )
+  "Lisp packages that are always dumped with XEmacs.
+This includes every package that is loaded directly by a package listed
+in dumped-lisp.el and is not itself listed.")
+
 (setq preloaded-file-list
       (assemble-list
         "backquote" 		; needed for defsubst etc.
@@ -120,8 +128,11 @@
 	;; Provide basic commands to set coding systems to user
 	(when-feature file-coding "code-cmds")
 	;;;;;;;;;;;;;;;;;; MULE support
+	(when-feature mule "mule-conf")
 	(when-feature mule "mule-charset")
 	(when-feature mule "mule-coding")
+	(when-feature mule "arabic")
+	(when-feature utf-2000 "update-cdb")
 	;; All files after this can have extended characters in them.
 	(when-feature mule "mule-help")
 	(when-feature mule "mule-category")
@@ -148,7 +159,6 @@
 ;; Now load files to set up all the different languages/environments
 ;; that Mule knows about.
 
-	(when-feature mule "arabic")
 	(when-feature mule "chinese")
 	(when-feature mule "mule/cyrillic") ; overloaded in leim/quail
 	(when-feature mule "english")
@@ -158,10 +168,12 @@
 	(when-feature mule "hebrew")
 	(when-feature mule "japanese")
 	(when-feature mule "korean")
+	(when-feature mule "latin")
 	(when-feature mule "misc-lang")
 	(when-feature mule "thai-xtis-chars")
 	(when-feature mule "mule/thai-xtis") ; overloaded in leim/quail
 	(when-feature mule "viet-chars")
+	(when-feature (and mule (not utf-2000)) "viet-ccl")
 	(when-feature mule "vietnamese")
 
 	;; Specialized language support
@@ -187,7 +199,7 @@
 ;; id-menus is not here.  infodock needs to figure out a clever way to
 ;; advise this stuff or we need to export a clean way for infodock or
 ;; others to control this programmatically.
-	(when-feature (and infodock (or x mswindows) menubar) "id-menus")
+	(when-feature (and infodock (or x mswindows gtk) menubar) "id-menus")
 ;; preload the X code.
 	(when-feature x "x-faces")
 	(when-feature x "x-iso8859-1")
@@ -198,6 +210,20 @@
 	(when-feature x "x-init")
 	(when-feature x "x-win-xfree86")
 	(when-feature x "x-win-sun")
+;; preload the GTK code
+ 	(when-feature gtk "gtk-ffi")
+ 	(when-feature gtk "gtk-widgets")
+ 	(when-feature gtk "gdk")
+ 	(when-feature gtk "gtk-init")
+ 	(when-feature gtk "gtk-faces")
+ 	(when-feature gtk "gtk-iso8859-1")
+ 	(when-feature (and gtk dialog) "dialog-gtk")
+ 	(when-feature gtk "gtk-select")
+ 	(when-feature gtk "gtk-mouse")
+ 	(when-feature gtk "gtk-glyphs")
+ 	(when-feature glade "glade")
+	(when-feature gtk "widgets-gtk")
+
 ;; preload the mswindows code.
 	(when-feature mswindows "msw-glyphs")
 	(when-feature mswindows "msw-faces")
@@ -236,6 +262,8 @@
 ;;	(when-feature sparcworks "sun-eos-debugger")
 ;;	(when-feature sparcworks "sun-eos-debugger-extra")
 ;;	(when-feature sparcworks "sun-eos-menubar")
+        ;; (when-feature utf-2000 "make-cdbs")
+	(when-feature chise "close-cdb")
 	"loadhist"		; Must be dumped before loaddefs is loaded
 	"loaddefs"		; <=== autoloads get loaded here
 ))