X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdumped-lisp.el;h=36d7942fc9291e1e2d321d01ecca282989b3ba1d;hb=3ca93f4c76fca3afcbe47893ef6ac97b12a9c30b;hp=5fe7a2bdfc97fbe2a5efc35a42f82102eeab9a24;hpb=711ad48da16312e536c278d8f39e8696f62d0eff;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/dumped-lisp.el b/lisp/dumped-lisp.el
index 5fe7a2b..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")