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