annotate lisp/dumped-lisp.el @ 1333:1b0339b048ce

[xemacs-hg @ 2003-03-02 09:38:37 by ben] To: xemacs-patches@xemacs.org PROBLEMS: Include nt/PROBLEMS and update. Add note about incremental linking badness. cmdloop.el, custom.el, dumped-lisp.el, files.el, keydefs.el, keymap.el, lisp-mode.el, make-docfile.el, replace.el, simple.el, subr.el, view-less.el, wid-edit.el: Lots of syncing with FSF 21.2. Use if-fboundp in wid-edit.el. New file newcomment.el from FSF. internals/internals.texi: Fix typo. (Build-Time Dependencies): New node. PROBLEMS: Delete. config.inc.samp, xemacs.mak: Eliminate HAVE_VC6, use SUPPORT_EDIT_AND_CONTINUE in its place. No incremental linking unless SUPPORT_EDIT_AND_CONTINUE, since it can cause nasty crashes in pdump. Put warnings about this in config.inc.samp. Report the full compile flags used for src and lib-src in the Installation output. alloc.c, lisp.h, ralloc.c, regex.c: Use ALLOCA() in regex.c to avoid excessive stack allocation. Also fix subtle problem with REL_ALLOC() -- any call to malloc() (direct or indirect) may relocate rel-alloced data, causing buffer text to shift. After any such call, regex must update all its pointers to such data. Add a system, when ERROR_CHECK_MALLOC, whereby regex.c indicates all the places it is prepared to handle malloc()/realloc()/free(), and any calls anywhere in XEmacs outside of this will trigger an abort. alloc.c, dialog-msw.c, eval.c, event-stream.c, general-slots.h, insdel.c, lisp.h, menubar-msw.c, menubar-x.c: Change *run_hook*_trapping_problems to take a warning class, not a string. Factor out code to issue warnings, add flag to call_trapping_problems() to postpone warning issue, and make *run_hook*_trapping_problems issue their own warnings tailored to the hook, postponed in the case of safe_run_hook_trapping_problems() so that the appropriate message can be issued about resetting to nil only when not `quit'. Make record_unwind_protect_restoring_int() non-static. dumper.c: Issue notes about incremental linking problems under Windows. fileio.c: Mule-ize encrypt/decrypt-string code. text.h: Spacing changes.
author ben
date Sun, 02 Mar 2003 09:38:54 +0000
parents 4542b72c005e
children ecf1ebac70d8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
1 (defvar packages-hardcoded-lisp
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
2 '(
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
3 ;; Nothing at this time
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
4 )
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
5 "Lisp packages that are always dumped with XEmacs.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
6 This includes every package that is loaded directly by a package listed
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
7 in dumped-lisp.el and is not itself listed.")
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 1315
diff changeset
8
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 (setq preloaded-file-list
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
10 (list
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
11 ;; do not defcustom any variables in these files
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
12
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
13 "backquote" ; needed for defsubst etc.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
14 "bytecomp-runtime" ; define defsubst
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
15 "find-paths"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
16 "packages" ; Bootstrap run-time lisp environment
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
17 "setup-paths"
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
18
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
19 ;; use custom-declare-variable-early, not defcustom, in these files
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
20
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
21 "subr" ; load the most basic Lisp functions
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
22 "post-gc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
23 "replace" ; match-string used in version.el.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
24
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
25 "version.el" ; Ignore compiled-by-mistake version.elc
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
26
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
27 "cl"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
28 "cl-extra"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
29 "cl-seq"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
30 "widget"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
31 "custom" ; Before the world so everything can be
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
32 ; customized
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
33 "cus-start" ; for customization of builtin variables
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
34
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
35 ;; OK, you can use defcustom from here on
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
36
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
37 "cmdloop"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
38 "keymap"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
39 "syntax"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
40 "device"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
41 "console"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
42 "obsolete"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
43 "specifier"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
44 "frame" ; needed by faces
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
45 (when (featurep 'x) "x-faces") ; needed by faces
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
46 (when (featurep 'gtk) "gtk-faces")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
47 (when (valid-console-type-p 'mswindows) "msw-faces")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
48 "faces" ; must be loaded before any make-face call
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
49 ;;(pureload "facemenu") #### not yet ported
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
50 "glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
51 "objects"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
52 "extents"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
53 "events"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
54 "hash-table"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
55 "text-props"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
56 "process" ;; This is bad. network-streams may not be defined.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
57 (when (featurep 'multicast) "multicast") ; #+network-streams implicitly true
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
58 "map-ynp"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
59 "undo-stack"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
60 "window" ; simple needs `save-window-excursion'
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
61 "window-xemacs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
62 "simple"
1333
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben]
ben
parents: 1330
diff changeset
63 "newcomment"
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
64 "keydefs" ; Before loaddefs so that keymap vars exist.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
65 "abbrev"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
66 "derived"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
67 "minibuf"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
68 "list-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
69 "modeline" ; needs simple.el to be loaded first
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 ;; If SparcWorks support is included some additional packages are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 ;; dumped which would normally have autoloads. To avoid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 ;; duplicate doc string warnings, SparcWorks uses a separate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 ;; autoloads file with the dumped packages removed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 ;; So just make loaddefs-eos go away...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
77 "cus-file"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
78 "startup" ; For initialization of
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 ; `emacs-user-extension-dir'
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
80 "misc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
81 ;; (pureload "profile")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
82 "help"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
83 ;; (pureload "hyper-apropos") Soon...
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
84 "files"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
85 "lib-complete"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
86 "format"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
87 "indent"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
88 "isearch-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
89 "buffer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
90 "buff-menu"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
91 "paths.el" ; don't get confused if paths compiled.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
92 "lisp"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
93 "page"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
94 "register"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
95 "iso8859-1" ; This must be before any modes
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
96 ; (sets standard syntax table.)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
97 "paragraphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
98 "easymenu" ; Added for 20.3.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
99 "lisp-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
100 "text-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
101 "fill"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
102 "auto-save" ; Added for 20.4
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
103 "movemail" ; Added for 21.2
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
104 (when (eq system-type 'windows-nt) "win32-native")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
105 (when (featurep 'lisp-float-type) "float-sup")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
106 "itimer" ; for vars auto-save-timeout and
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 ; auto-gc-threshold
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
108 "itimer-autosave"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
109 "printer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
110 "behavior"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
111 "behavior-defs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
112 "diagnose"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
113
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
114 ;;;;;;;;;;;;;;;;;; GUI support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
115 (when (featurep 'window-system)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
116 '("gui"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
117 "mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
118 "mode-motion"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
119 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
120 (when (featurep 'toolbar) "toolbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
121 (when (featurep 'scrollbar) "scrollbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
122 (when (featurep 'menubar) "menubar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
123 (when (featurep 'dialog) "dialog")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
124 (when (featurep 'gutter) "gutter")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
125 (when (featurep 'dragdrop-api) "dragdrop")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
126 "select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
127
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
128 ;;;;;;;;;;;;;;;;;; Content for GUI's
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
129 ;; There used to be window-system inserted in the when-feature,
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
130 ;; but IMHO your configure script should turn off the menubar,
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
131 ;; toolbar, etc. features when there is no window system. We
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
132 ;; should just be able to assume that, if (featurep 'menubar),
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
133 ;; the menubar should work and if items are added, they can be
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
134 ;; seen clearly and usefully.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
135 (when (featurep '(and (not infodock) menubar)) "menubar-items")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
136 (when (featurep '(and gutter)) "gutter-items")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
137 (when (featurep '(and (not infodock) toolbar)) "toolbar-items")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
138 (when (featurep '(and (not infodock) dialog)) "dialog-items")
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
139
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
140 ;;;;;;;;;;;;;;;;;; Coding-system support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
141 "coding"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
142 "code-files"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
143 ;; Handle process with encoding/decoding coding-system.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
144 "code-process"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
145 ;; Provide basic commands to set coding systems to user
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
146 "code-cmds"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
147 "unicode"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
148 ;;;;;;;;;;;;;;;;;; MULE support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
149 (when (featurep 'mule)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
150 '("mule-charset"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
151 "mule-cmds" ; to sync with Emacs 20.1
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
152 "mule-coding"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
153 "mule-composite-stub"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
154 "mule-composite"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
155 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
156 ;; may initialize coding systems
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
157 (when (featurep '(and mule x)) "mule-x-init")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
158 (when (featurep '(and mule tty)) "mule-tty-init")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
159 (when (and (featurep 'mule) (memq system-type '(windows-nt cygwin32)))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
160 "mule-win32-init")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
161 "code-init" ; set up defaults
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
162 ;; All files after this can have extended characters in them.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
163 (when (featurep 'mule)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
164 '("mule-category"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
165 "mule-ccl"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
166 "kinsoku"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
167 ))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 ;; after this goes the specific lisp routines for a particular input system
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 ;; or user switching of input systems???
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 ;(if (featurep 'wnn)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 ; (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 ; (pureload "egg")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 ; (pureload "egg-wnn")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 ; (setq egg-default-startup-file "eggrc-wnn")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 ;; (if (and (boundp 'CANNA) CANNA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 ;; (pureload "canna")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 ;; )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
182 ;; Now load files to set up all the different languages/environments that
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
183 ;; Mule knows about. Formerly we had to worry about files shadowed by
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
184 ;; those of the same name in leim/quail.el, but no longer, since we now
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
185 ;; compile with -no-packages.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
187 (when (featurep 'mule)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
188 '("arabic"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
189 "chinese"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
190 "cyrillic"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
191 "english"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
192 "ethiopic"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
193 "european"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
194 "greek"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
195 "hebrew"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
196 "indian"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
197 "devanagari" ; must be loaded after indian.el
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
198 "japanese"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
199 "korean"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
200 "lao"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
201 "latin"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
202 "misc-lang"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
203 ;; "thai" #### merge thai and thai-xtis!!!
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
204 "thai-xtis"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
205 "tibetan"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
206 "vietnamese"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
207 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
208
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 ;; Specialized language support
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
210 (when (featurep '(and mule CANNA)) "canna-leim")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 ;; Egg/Its is now a package
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
212 ; (when (featurep '(and mule wnn))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
213 ; '("egg-leim" "egg-kwnn-leim" "egg-cwnn-leim"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
214 ; (when (featurep 'mule) "egg-sj3-leim")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 ;; SKK is now a package
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
216 ; (when (featurep 'mule) "skk-leim")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 ;; Enable Mule capability for Gnus, mail, etc...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 ;; Moved to sunpro-load.el - the default only for Sun.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 ;;(pureload "mime-setup")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
221
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
222 ;; needs access to the charsets created by the above
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
223 ;; language-specific files.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
224 (when (and (featurep 'mule) (valid-console-type-p 'mswindows))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
225 "mule-msw-init-late")
780
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben]
ben
parents: 778
diff changeset
226
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 ;;; mule-load.el ends here
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
228
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
229 ;; preload InfoDock stuff. should almost certainly not be here if
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
230 ;; id-menus is not here. infodock needs to figure out a clever way to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
231 ;; advise this stuff or we need to export a clean way for infodock or
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
232 ;; others to control this programmatically.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
233 (when (featurep '(and infodock (or x mswindows gtk) menubar))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
234 "id-menus")
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
235 ;; preload the X code.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
236 (when (featurep '(and x scrollbar)) "x-scrollbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
237 (when (featurep 'x)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
238 '("x-iso8859-1"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
239 "x-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
240 "x-select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
241 "x-misc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
242 "x-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
243 "x-win-xfree86"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
244 "x-win-sun"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
245 ;; preload the GTK code
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
246 (when (featurep 'gtk)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
247 '("gtk-ffi"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
248 "gtk-widgets"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
249 "gdk"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
250 "gtk-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
251 "gtk-iso8859-1"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
252 "gtk-select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
253 "gtk-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
254 "gtk-glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
255 "widgets-gtk"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
256 (when (featurep '(and gtk dialog)) "dialog-gtk")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
257 (when (featurep 'glade) "glade")
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 444
diff changeset
258
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 ;; preload the mswindows code.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
260 (when (valid-console-type-p 'mswindows)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
261 '("msw-glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
262 "msw-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
263 "msw-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
264 "msw-select"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 ;; preload the TTY init code.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
266 (when (featurep 'tty) "tty-init")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 ;;; Formerly in tooltalk/tooltalk-load.el
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 ;; Moved to tooltalk package
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
269 ;; (when (featurep 'tooltalk)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
270 ;; '("tooltalk-macros" "tooltalk-util" "tooltalk-init"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 ;; "vc-hooks" ; Packaged. Available in two versions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 ;; "ediff-hook" ; Packaged.
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
273 "fontl-hooks"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
274 "auto-show"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
275 "resize-minibuffer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
276 (when (featurep 'ldap) "ldap")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
278 ;; (when (featurep 'energize) "energize/energize-load.el")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 ;;; formerly in sunpro/sunpro-load.el
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
280 ;; (when (featurep '(and mule sparcworks)) "mime-setup")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 ;; Moved to Sun package
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
283 ;; (when (featurep 'sparcworks)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
284 ;; '("cc-mode" ; Requires cc-mode package
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
285 ;; "sunpro-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
286 ;; "ring"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
287 ;; "comint" ; Requires comint package
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
288 ;; "annotations"))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 ;;; formerly in eos/sun-eos-load.el
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
291 ;; (when (featurep 'sparcworks)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
292 ;; '("sun-eos-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
293 ;; "sun-eos-common"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
294 ;; "sun-eos-editor"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
295 ;; "sun-eos-browser"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
296 ;; "sun-eos-debugger"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
297 ;; "sun-eos-debugger-extra"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
298 ;; "sun-eos-menubar"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
299 "loadhist" ; Must be dumped before loaddefs is loaded
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
300 "loaddefs" ; <=== autoloads get loaded here
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
301 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
302
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
303 (setq preloaded-file-list
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
304 (apply #'nconc
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
305 (mapcar #'(lambda (x)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
306 (if (listp x) x (list x)))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1133
diff changeset
307 preloaded-file-list)))