git.chise.org Git - chise/xemacs-chise.git.1/blob - lisp/dumped-lisp.el

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