X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdumped-lisp.el;h=36d7942fc9291e1e2d321d01ecca282989b3ba1d;hb=9fba8a0ce838af753969cf18f7b9f42e95890d3d;hp=c1e7c50c6554a040195fbec80d9622fcf7bc44a1;hpb=c85646be9e6961fe9a569f774421de07d30ba77d;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/dumped-lisp.el b/lisp/dumped-lisp.el
index c1e7c50..36d7942 100644
--- a/lisp/dumped-lisp.el
+++ b/lisp/dumped-lisp.el
@@ -1,4 +1,3 @@
-
 (setq preloaded-file-list
       (assemble-list
         "backquote" 		; needed for defsubst etc.
@@ -161,6 +160,7 @@
 	(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
@@ -191,7 +191,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")
@@ -202,6 +202,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")
@@ -241,6 +255,7 @@
 ;;	(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
 ))