2 (setq preloaded-file-list
4 "backquote" ; needed for defsubst etc.
5 "bytecomp-runtime" ; define defsubst
7 "packages" ; Bootstrap run-time lisp environment
10 "subr" ; load the most basic Lisp functions
11 "replace" ; match-string used in version.el.
12 ; Ignore compiled-by-mistake version.elc
18 "custom" ; Before the world so everything can be
20 "cus-start" ; for customization of builtin variables
28 "faces" ; must be loaded before any make-face call
29 ;;(pureload "facemenu") #### not yet ported
35 "process" ;; This is bad. network-streams may not be defined.
36 (when-feature multicast "multicast") ; #+network-streams implicitly true
37 "frame" ; move up here cause some stuff needs it here
40 "keydefs" ; Before loaddefs so that keymap vars exist.
45 "modeline" ; needs simple.el to be loaded first
46 ;; If SparcWorks support is included some additional packages are
47 ;; dumped which would normally have autoloads. To avoid
48 ;; duplicate doc string warnings, SparcWorks uses a separate
49 ;; autoloads file with the dumped packages removed.
50 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
51 ;; So just make loaddefs-eos go away...
52 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
54 "startup" ; For initialization of
55 ; `emacs-user-extension-dir'
57 ;; (pureload "profile")
58 (unless-feature mule "help-nomule")
60 ;; (pureload "hyper-apropos") Soon...
61 (unless-feature file-coding "files-nomule")
72 "paths.el" ; don't get confused if paths compiled.
76 "iso8859-1" ; This must be before any modes
77 ; (sets standard syntax table.)
79 "easymenu" ; Added for 20.3.
83 "auto-save" ; Added for 20.4
84 "movemail" ; Added for 21.2
85 (when-feature windows-nt "win32-native")
86 (when-feature lisp-float-type "float-sup")
87 "itimer" ; for vars auto-save-timeout and
92 ;;;;;;;;;;;;;;;;;; GUI support
93 (when-feature window-system "gui")
94 (when-feature window-system "mouse")
95 (when-feature window-system "mode-motion")
96 (when-feature toolbar "toolbar")
97 (when-feature scrollbar "scrollbar")
98 (when-feature menubar "menubar")
99 (when-feature dialog "dialog")
100 (when-feature gutter "gutter")
101 (when-feature dragdrop-api "dragdrop")
104 ;;;;;;;;;;;;;;;;;; Content for GUI's
105 ;; There used to be window-system inserted in the when-feature,
106 ;; but IMHO your configure script should turn off the menubar,
107 ;; toolbar, etc. features when there is no window system. We
108 ;; should just be able to assume that, if (featurep 'menubar),
109 ;; the menubar should work and if items are added, they can be
110 ;; seen clearly and usefully.
111 (when-feature (and (not infodock) menubar) "menubar-items")
112 (when-feature (and gutter) "gutter-items")
113 (when-feature (and (not infodock) toolbar) "toolbar-items")
114 (when-feature (and (not infodock) dialog) "dialog-items")
116 ;;;;;;;;;;;;;;;;;; Coding-system support
117 (when-feature file-coding "coding")
118 (when-feature file-coding "code-files")
119 ;; Handle process with encoding/decoding coding-system.
120 (when-feature file-coding "code-process")
121 ;; Provide basic commands to set coding systems to user
122 (when-feature file-coding "code-cmds")
123 ;;;;;;;;;;;;;;;;;; MULE support
124 (when-feature mule "mule-conf")
125 (when-feature mule "arabic")
126 (when-feature utf-2000 "update-cdb")
127 (when-feature mule "mule-charset")
128 (when-feature mule "mule-coding")
129 ;; All files after this can have extended characters in them.
130 (when-feature mule "mule-help")
131 (when-feature mule "mule-category")
132 (when-feature mule "mule-ccl")
133 (when-feature mule "mule-misc")
134 (when-feature mule "kinsoku")
135 (when-feature (and mule x) "mule-x-init")
136 (when-feature (and mule tty) "mule-tty-init")
137 (when-feature mule "mule-cmds") ; to sync with Emacs 20.1
139 ;; after this goes the specific lisp routines for a particular input system
140 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site
141 ;; or user switching of input systems???
145 ; (pureload "egg-wnn")
146 ; (setq egg-default-startup-file "eggrc-wnn")))
148 ;; (if (and (boundp 'CANNA) CANNA)
149 ;; (pureload "canna")
152 ;; Now load files to set up all the different languages/environments
153 ;; that Mule knows about.
155 (when-feature mule "chinese")
156 (when-feature mule "mule/cyrillic") ; overloaded in leim/quail
157 (when-feature mule "english")
158 (when-feature mule "ethiopic")
159 (when-feature mule "european")
160 (when-feature mule "mule/greek") ; overloaded in leim/quail
161 (when-feature mule "hebrew")
162 (when-feature mule "japanese")
163 (when-feature mule "korean")
164 (when-feature mule "misc-lang")
165 (when-feature mule "thai-xtis-chars")
166 (when-feature mule "mule/thai-xtis") ; overloaded in leim/quail
167 (when-feature mule "viet-chars")
168 (when-feature (and mule (not utf-2000)) "viet-ccl")
169 (when-feature mule "vietnamese")
171 ;; Specialized language support
172 (when-feature (and mule CANNA) "canna-leim")
173 ;; Egg/Its is now a package
174 ; (when-feature (and mule wnn) "egg-leim")
175 ; (when-feature (and mule wnn) "egg-kwnn-leim")
176 ; (when-feature (and mule wnn) "egg-cwnn-leim")
177 ; (when-feature mule "egg-sj3-leim")
178 ;; SKK is now a package
179 ; (when-feature mule "skk-leim")
181 ;; Set up the XEmacs environment for Mule.
182 ;; Assumes the existence of various stuff above.
183 (when-feature mule "mule-init")
185 ;; Enable Mule capability for Gnus, mail, etc...
186 ;; Moved to sunpro-load.el - the default only for Sun.
187 ;;(pureload "mime-setup")
188 ;;; mule-load.el ends here
190 ;; preload InfoDock stuff. should almost certainly not be here if
191 ;; id-menus is not here. infodock needs to figure out a clever way to
192 ;; advise this stuff or we need to export a clean way for infodock or
193 ;; others to control this programmatically.
194 (when-feature (and infodock (or x mswindows) menubar) "id-menus")
195 ;; preload the X code.
196 (when-feature x "x-faces")
197 (when-feature x "x-iso8859-1")
198 (when-feature x "x-mouse")
199 (when-feature x "x-select")
200 (when-feature (and x scrollbar) "x-scrollbar")
201 (when-feature x "x-misc")
202 (when-feature x "x-init")
203 (when-feature x "x-win-xfree86")
204 (when-feature x "x-win-sun")
205 ;; preload the mswindows code.
206 (when-feature mswindows "msw-glyphs")
207 (when-feature mswindows "msw-faces")
208 (when-feature mswindows "msw-mouse")
209 (when-feature mswindows "msw-init")
210 (when-feature mswindows "msw-select")
211 ;; preload the TTY init code.
212 (when-feature tty "tty-init")
213 ;;; Formerly in tooltalk/tooltalk-load.el
214 ;; Moved to tooltalk package
215 ;; (when-feature tooltalk "tooltalk-macros")
216 ;; (when-feature tooltalk "tooltalk-util")
217 ;; (when-feature tooltalk "tooltalk-init")
218 ;; "vc-hooks" ; Packaged. Available in two versions.
219 ;; "ediff-hook" ; Packaged.
222 (when-feature ldap "ldap")
224 ;; (when-feature energize "energize/energize-load.el")
225 ;;; formerly in sunpro/sunpro-load.el
226 ;; (when-feature (and mule sparcworks) "mime-setup")
228 ;; Moved to Sun package
229 ;; (when-feature sparcworks "cc-mode") ; Requires cc-mode package
230 ;; (when-feature sparcworks "sunpro-init")
231 ;; (when-feature sparcworks "ring")
232 ;; (when-feature sparcworks "comint") ; Requires comint package
233 ;; (when-feature sparcworks "annotations")
235 ;;; formerly in eos/sun-eos-load.el
236 ;; (when-feature sparcworks "sun-eos-init")
237 ;; (when-feature sparcworks "sun-eos-common")
238 ;; (when-feature sparcworks "sun-eos-editor")
239 ;; (when-feature sparcworks "sun-eos-browser")
240 ;; (when-feature sparcworks "sun-eos-debugger")
241 ;; (when-feature sparcworks "sun-eos-debugger-extra")
242 ;; (when-feature sparcworks "sun-eos-menubar")
243 ;; (when-feature utf-2000 "make-cdbs")
244 (when-feature chise "close-cdb")
245 "loadhist" ; Must be dumped before loaddefs is loaded
246 "loaddefs" ; <=== autoloads get loaded here