(A-GT-K02849): New abstract node; unify A-U+8FB0-itaiji-001.

[chise/xemacs-chise.git.1] / lisp / dumped-lisp.el

diff --git a/lisp/dumped-lisp.el b/lisp/dumped-lisp.el
index a299732..f59b944 100644 (file)
--- 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
 ))