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