(U-000200B5): Use `->denotational'; use
[chise/xemacs-chise.git.1] / lisp / dumped-lisp.el
1 (defvar packages-hardcoded-lisp
2   '(
3     ;; Nothing at this time
4     )
5   "Lisp packages that are always dumped with XEmacs.
6 This includes every package that is loaded directly by a package listed
7 in dumped-lisp.el and is not itself listed.")
8
9 (setq preloaded-file-list
10       (assemble-list
11         "backquote"             ; needed for defsubst etc.
12         "bytecomp-runtime"      ; define defsubst
13         "find-paths"
14         "packages"              ; Bootstrap run-time lisp environment
15         "setup-paths"
16         "dump-paths"
17         "subr"                  ; load the most basic Lisp functions
18         "replace"               ; match-string used in version.el.
19         ; Ignore compiled-by-mistake version.elc
20         "version.el"
21         "cl"
22         "cl-extra"
23         "cl-seq"
24         "widget"
25         "custom"                ; Before the world so everything can be
26                                 ; customized
27         "cus-start"             ; for customization of builtin variables
28         "cmdloop"
29         "keymap"
30         "syntax"
31         "device"
32         "console"
33         "obsolete"
34         "specifier"
35         "faces"                 ; must be loaded before any make-face call
36 ;;(pureload "facemenu") #### not yet ported
37         "glyphs"
38         "objects"
39         "extents"
40         "events"
41         "text-props"
42         "process" ;; This is bad. network-streams may not be defined.
43         (when-feature multicast "multicast") ; #+network-streams implicitly true
44         "frame"                 ; move up here cause some stuff needs it here
45         "map-ynp"
46         "simple"
47         "keydefs"               ; Before loaddefs so that keymap vars exist.
48         "abbrev"
49         "derived"
50         "minibuf"
51         "list-mode"
52         "modeline"              ; needs simple.el to be loaded first
53 ;; If SparcWorks support is included some additional packages are
54 ;; dumped which would normally have autoloads.  To avoid
55 ;; duplicate doc string warnings, SparcWorks uses a separate
56 ;; autoloads file with the dumped packages removed.
57 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
58 ;; So just make loaddefs-eos go away...
59 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
60         "cus-file"
61         "startup"               ; For initialization of
62                                 ;  `emacs-user-extension-dir'
63         "misc"
64         ;; (pureload "profile")
65         (unless-feature mule "help-nomule")
66         "help"
67         ;; (pureload "hyper-apropos")  Soon...
68         (unless-feature file-coding "files-nomule")
69         "files"
70         "lib-complete"
71         "format"
72         "indent"
73         "isearch-mode"
74         "buffer"
75         "buff-menu"
76         "undo-stack"
77         "window"
78         "window-xemacs"
79         "paths.el"              ; don't get confused if paths compiled.
80         "lisp"
81         "page"
82         "register"
83         "iso8859-1"             ; This must be before any modes
84                                         ; (sets standard syntax table.)
85         "paragraphs"
86         "easymenu"              ; Added for 20.3.
87         "lisp-mode"
88         "text-mode"
89         "fill"
90         "auto-save"             ; Added for 20.4
91         "movemail"              ; Added for 21.2
92         (when-feature windows-nt "win32-native")
93         (when-feature lisp-float-type "float-sup")
94         "itimer"                ; for vars auto-save-timeout and
95                                 ; auto-gc-threshold
96         "itimer-autosave"
97         "printer"
98
99         ;;;;;;;;;;;;;;;;;; GUI support
100         (when-feature window-system "gui")
101         (when-feature window-system "mouse")
102         (when-feature window-system "mode-motion")
103         (when-feature toolbar "toolbar")
104         (when-feature scrollbar "scrollbar")
105         (when-feature menubar "menubar")
106         (when-feature dialog "dialog")
107         (when-feature gutter "gutter")
108         (when-feature dragdrop-api "dragdrop")
109         "select"
110
111         ;;;;;;;;;;;;;;;;;; Content for GUI's
112         ;; There used to be window-system inserted in the when-feature,
113         ;; but IMHO your configure script should turn off the menubar,
114         ;; toolbar, etc. features when there is no window system.  We
115         ;; should just be able to assume that, if (featurep 'menubar),
116         ;; the menubar should work and if items are added, they can be
117         ;; seen clearly and usefully.
118         (when-feature (and (not infodock) menubar) "menubar-items")
119         (when-feature (and gutter) "gutter-items")
120         (when-feature (and (not infodock) toolbar) "toolbar-items")
121         (when-feature (and (not infodock) dialog) "dialog-items")
122
123         ;;;;;;;;;;;;;;;;;; Coding-system support
124         (when-feature file-coding "coding")
125         (when-feature file-coding "code-files")
126         ;; Handle process with encoding/decoding coding-system.
127         (when-feature file-coding "code-process")
128         ;; Provide basic commands to set coding systems to user
129         (when-feature file-coding "code-cmds")
130         ;;;;;;;;;;;;;;;;;; MULE support
131         (when-feature mule "mule-conf")
132         (when-feature mule "mule-charset")
133         (when-feature mule "mule-coding")
134         (when-feature mule "arabic")
135         (when-feature utf-2000 "update-cdb")
136         ;; All files after this can have extended characters in them.
137         (when-feature mule "mule-help")
138         (when-feature mule "mule-category")
139         (when-feature mule "mule-ccl")
140         (when-feature mule "mule-misc")
141         (when-feature mule "kinsoku")
142         (when-feature (and mule x) "mule-x-init")
143         (when-feature (and mule tty) "mule-tty-init")
144         (when-feature mule "mule-cmds") ; to sync with Emacs 20.1
145
146 ;; after this goes the specific lisp routines for a particular input system
147 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site
148 ;; or user switching of input systems???
149 ;(if (featurep 'wnn)
150 ;    (progn
151 ;      (pureload "egg")
152 ;      (pureload "egg-wnn")
153 ;      (setq egg-default-startup-file "eggrc-wnn")))
154
155 ;; (if (and (boundp 'CANNA) CANNA)
156 ;;     (pureload "canna")
157 ;;   )
158
159 ;; Now load files to set up all the different languages/environments
160 ;; that Mule knows about.
161
162         (when-feature mule "chinese")
163         (when-feature mule "mule/cyrillic") ; overloaded in leim/quail
164         (when-feature mule "english")
165         (when-feature mule "ethiopic")
166         (when-feature mule "european")
167         (when-feature mule "mule/greek") ; overloaded in leim/quail
168         (when-feature mule "hebrew")
169         (when-feature mule "japanese")
170         (when-feature mule "korean")
171         (when-feature mule "latin")
172         (when-feature mule "misc-lang")
173         (when-feature mule "thai-xtis-chars")
174         (when-feature mule "mule/thai-xtis") ; overloaded in leim/quail
175         (when-feature mule "viet-chars")
176         (when-feature (and mule (not utf-2000)) "viet-ccl")
177         (when-feature mule "vietnamese")
178
179         ;; Specialized language support
180         (when-feature (and mule CANNA) "canna-leim")
181 ;; Egg/Its is now a package
182 ;       (when-feature (and mule wnn) "egg-leim")
183 ;       (when-feature (and mule wnn) "egg-kwnn-leim")
184 ;       (when-feature (and mule wnn) "egg-cwnn-leim")
185 ;       (when-feature mule "egg-sj3-leim")
186 ;; SKK is now a package
187 ;       (when-feature mule "skk-leim")
188
189 ;; Set up the XEmacs environment for Mule.
190 ;; Assumes the existence of various stuff above.
191         (when-feature mule "mule-init")
192
193 ;; Enable Mule capability for Gnus, mail, etc...
194 ;; Moved to sunpro-load.el - the default only for Sun.
195 ;;(pureload "mime-setup")
196 ;;; mule-load.el ends here
197
198 ;; preload InfoDock stuff.  should almost certainly not be here if
199 ;; id-menus is not here.  infodock needs to figure out a clever way to
200 ;; advise this stuff or we need to export a clean way for infodock or
201 ;; others to control this programmatically.
202         (when-feature (and infodock (or x mswindows gtk) menubar) "id-menus")
203 ;; preload the X code.
204         (when-feature x "x-faces")
205         (when-feature x "x-iso8859-1")
206         (when-feature x "x-mouse")
207         (when-feature x "x-select")
208         (when-feature (and x scrollbar) "x-scrollbar")
209         (when-feature x "x-misc")
210         (when-feature x "x-init")
211         (when-feature x "x-win-xfree86")
212         (when-feature x "x-win-sun")
213 ;; preload the GTK code
214         (when-feature gtk "gtk-ffi")
215         (when-feature gtk "gtk-widgets")
216         (when-feature gtk "gdk")
217         (when-feature gtk "gtk-init")
218         (when-feature gtk "gtk-faces")
219         (when-feature gtk "gtk-iso8859-1")
220         (when-feature (and gtk dialog) "dialog-gtk")
221         (when-feature gtk "gtk-select")
222         (when-feature gtk "gtk-mouse")
223         (when-feature gtk "gtk-glyphs")
224         (when-feature glade "glade")
225         (when-feature gtk "widgets-gtk")
226
227 ;; preload the mswindows code.
228         (when-feature mswindows "msw-glyphs")
229         (when-feature mswindows "msw-faces")
230         (when-feature mswindows "msw-mouse")
231         (when-feature mswindows "msw-init")
232         (when-feature mswindows "msw-select")
233 ;; preload the TTY init code.
234         (when-feature tty "tty-init")
235 ;;; Formerly in tooltalk/tooltalk-load.el
236         ;; Moved to tooltalk package
237         ;; (when-feature tooltalk "tooltalk-macros")
238         ;; (when-feature tooltalk "tooltalk-util")
239         ;; (when-feature tooltalk "tooltalk-init")
240         ;; "vc-hooks"           ; Packaged.  Available in two versions.
241         ;; "ediff-hook"         ; Packaged.
242         "fontl-hooks"
243         "auto-show"
244         (when-feature ldap "ldap")
245
246 ;; (when-feature energize "energize/energize-load.el")
247 ;;; formerly in sunpro/sunpro-load.el
248 ;;      (when-feature (and mule sparcworks) "mime-setup")
249
250         ;; Moved to Sun package
251         ;; (when-feature sparcworks "cc-mode") ; Requires cc-mode package
252         ;; (when-feature sparcworks "sunpro-init")
253         ;; (when-feature sparcworks "ring")
254         ;; (when-feature sparcworks "comint") ; Requires comint package
255         ;; (when-feature sparcworks "annotations")
256
257 ;;; formerly in eos/sun-eos-load.el
258 ;;      (when-feature sparcworks "sun-eos-init")
259 ;;      (when-feature sparcworks "sun-eos-common")
260 ;;      (when-feature sparcworks "sun-eos-editor")
261 ;;      (when-feature sparcworks "sun-eos-browser")
262 ;;      (when-feature sparcworks "sun-eos-debugger")
263 ;;      (when-feature sparcworks "sun-eos-debugger-extra")
264 ;;      (when-feature sparcworks "sun-eos-menubar")
265         ;; (when-feature utf-2000 "make-cdbs")
266         (when-feature chise "close-cdb")
267         "loadhist"              ; Must be dumped before loaddefs is loaded
268         "loaddefs"              ; <=== autoloads get loaded here
269 ))