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