1 (defvar packages-hardcoded-lisp
3 ;; Nothing at this time
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.")
9 (setq preloaded-file-list
11 "backquote" ; needed for defsubst etc.
12 "bytecomp-runtime" ; define defsubst
14 "packages" ; Bootstrap run-time lisp environment
17 "subr" ; load the most basic Lisp functions
18 "replace" ; match-string used in version.el.
19 ; Ignore compiled-by-mistake version.elc
25 "custom" ; Before the world so everything can be
27 "cus-start" ; for customization of builtin variables
35 "faces" ; must be loaded before any make-face call
36 ;;(pureload "facemenu") #### not yet ported
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
49 "resize-minibuffer" ; Needed by simple
51 "keydefs" ; Before loaddefs so that keymap vars exist.
57 "modeline" ; needs simple.el to be loaded first
58 ;; If SparcWorks support is included some additional packages are
59 ;; dumped which would normally have autoloads. To avoid
60 ;; duplicate doc string warnings, SparcWorks uses a separate
61 ;; autoloads file with the dumped packages removed.
62 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
63 ;; So just make loaddefs-eos go away...
64 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
66 "startup" ; For initialization of
67 ; `emacs-user-extension-dir'
70 "loadhist" ; Must be dumped before loaddefs is loaded
72 ;; (pureload "profile")
73 (unless-feature mule "help-nomule")
75 ;; (pureload "hyper-apropos") Soon...
76 (unless-feature file-coding "files-nomule")
79 (when-feature modules "emod-utils")
85 "paths.el" ; don't get confused if paths compiled.
89 "iso8859-1" ; This must be before any modes
90 ; (sets standard syntax table.)
92 "easymenu" ; Added for 20.3.
96 "auto-save" ; Added for 20.4
97 "movemail" ; Added for 21.2
98 (when-feature lisp-float-type "float-sup")
99 "itimer" ; for vars auto-save-timeout and
104 ;;;;;;;;;;;;;;;;;; GUI support
105 (when-feature window-system "gui")
106 (when-feature window-system "mouse")
107 (when-feature window-system "mode-motion")
108 (when-feature toolbar "toolbar")
109 (when-feature scrollbar "scrollbar")
110 (when-feature menubar "menubar")
111 (when-feature dialog "dialog")
112 (when-feature gutter "gutter")
113 (when-feature dragdrop-api "dragdrop")
116 ;;;;;;;;;;;;;;;;;; Content for GUI's
117 ;; There used to be window-system inserted in the when-feature,
118 ;; but IMHO your configure script should turn off the menubar,
119 ;; toolbar, etc. features when there is no window system. We
120 ;; should just be able to assume that, if (featurep 'menubar),
121 ;; the menubar should work and if items are added, they can be
122 ;; seen clearly and usefully.
123 (when-feature (and (not infodock) menubar) "menubar-items")
124 (when-feature (and gutter) "gutter-items")
125 (when-feature (and (not infodock) toolbar) "toolbar-items")
126 (when-feature (and (not infodock) dialog) "dialog-items")
128 ;;;;;;;;;;;;;;;;;; Coding-system support
129 (when-feature file-coding "coding")
130 (when-feature file-coding "code-files")
131 ;; Handle process with encoding/decoding coding-system.
132 (when-feature file-coding "code-process")
133 ;; Provide basic commands to set coding systems to user
134 (when-feature file-coding "code-cmds")
135 ;;;;;;;;;;;;;;;;;; MULE support
136 (when-feature mule "mule-charset")
137 (when-feature mule "mule-coding")
138 ;; All files after this can have extended characters in them.
139 (when-feature mule "mule-help")
140 (when-feature mule "mule-category")
141 (when-feature mule "mule-misc")
142 (when-feature mule "kinsoku")
143 (when-feature (and mule x) "mule-x-init")
144 (when-feature (and mule tty) "mule-tty-init")
145 (when-feature mule "mule-cmds") ; to sync with Emacs 20.1
147 ;; after this goes the specific lisp routines for a particular input system
148 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site
149 ;; or user switching of input systems???
153 ; (pureload "egg-wnn")
154 ; (setq egg-default-startup-file "eggrc-wnn")))
156 ;; (if (and (boundp 'CANNA) CANNA)
157 ;; (pureload "canna")
160 ;; Now load files to set up all the different languages/environments
161 ;; that Mule knows about.
163 (when-feature mule "arabic")
164 (when-feature mule "chinese")
165 (when-feature mule "mule/cyrillic") ; overloaded in leim/quail
166 (when-feature mule "english")
167 (when-feature mule "ethiopic")
168 (when-feature mule "european")
169 (when-feature mule "mule/greek") ; overloaded in leim/quail
170 (when-feature mule "hebrew")
171 (when-feature mule "japanese")
172 (when-feature mule "korean")
173 (when-feature mule "latin")
174 (when-feature mule "misc-lang")
175 (when-feature mule "thai-xtis-chars")
176 (when-feature mule "mule/thai-xtis") ; overloaded in leim/quail
177 (when-feature mule "viet-chars")
178 (when-feature mule "vietnamese")
180 ;; Specialized language support
181 (when-feature (and mule CANNA) "canna-leim")
182 ;; Egg/Its is now a package
183 ; (when-feature (and mule wnn) "egg-leim")
184 ; (when-feature (and mule wnn) "egg-kwnn-leim")
185 ; (when-feature (and mule wnn) "egg-cwnn-leim")
186 ; (when-feature mule "egg-sj3-leim")
187 ;; SKK is now a package
188 ; (when-feature mule "skk-leim")
190 ;; Set up the XEmacs environment for Mule.
191 ;; Assumes the existence of various stuff above.
192 (when-feature mule "mule-init")
194 ;; Enable Mule capability for Gnus, mail, etc...
195 ;; Moved to sunpro-load.el - the default only for Sun.
196 ;;(pureload "mime-setup")
197 ;;; mule-load.el ends here
199 ;; preload InfoDock stuff. should almost certainly not be here if
200 ;; id-menus is not here. infodock needs to figure out a clever way to
201 ;; advise this stuff or we need to export a clean way for infodock or
202 ;; others to control this programmatically.
203 (when-feature (and infodock x menubar) "id-menus")
204 ;; preload the X code.
205 (when-feature x "x-faces")
206 (when-feature x "x-iso8859-1")
207 (when-feature x "x-mouse")
208 (when-feature x "x-select")
209 (when-feature (and x scrollbar) "x-scrollbar")
210 (when-feature x "x-misc")
211 (when-feature x "x-init")
212 (when-feature x "x-win-xfree86")
213 (when-feature x "x-win-sun")
215 ;; preload the TTY init code.
216 (when-feature tty "tty-init")
222 (when-feature ldap "ldap")
224 "loaddefs" ; <=== autoloads get loaded here