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