1 ;;; loadup.el --- load up standardly loaded Lisp files for Emacs
3 ;; Copyright (C) 1985, 1986, 1992, 1994, 2001, 2002, 2003,
4 ;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
26 ;; This is loaded into a bare Emacs to make a dumpable one.
30 ;; add subdirectories to the load-path for files that might
31 ;; get autoloaded when bootstrapping
32 (if (or (equal (nth 3 command-line-args
) "bootstrap")
33 (equal (nth 4 command-line-args
) "bootstrap")
34 (equal (nth 3 command-line-args
) "unidata-gen.el")
35 (equal (nth 4 command-line-args
) "unidata-gen-files")
36 ;; in case CANNOT_DUMP
37 (equal (nth 0 command-line-args
) "../src/bootstrap-emacs"))
38 (let ((dir (car load-path
)))
39 ;; We'll probably overflow the pure space.
40 (setq purify-flag nil
)
41 (setq load-path
(list dir
42 (expand-file-name "emacs-lisp" dir
)
43 (expand-file-name "language" dir
)
44 (expand-file-name "international" dir
)
45 (expand-file-name "textmodes" dir
)))))
47 (message "Using load-path %s" load-path
)
49 (if (or (member (nth 3 command-line-args
) '("dump" "bootstrap"))
50 (member (nth 4 command-line-args
) '("dump" "bootstrap")))
51 ;; To reduce the size of dumped Emacs, we avoid making huge
53 (setq inhibit-load-charset-map t
))
55 ;; We don't want to have any undo records in the dumped Emacs.
56 (set-buffer "*scratch*")
57 (setq buffer-undo-list t
)
59 (load "emacs-lisp/byte-run")
60 (load "emacs-lisp/backquote")
63 ;; We specify .el in case someone compiled version.el by mistake.
68 (load "emacs-lisp/map-ynp")
70 (load "international/mule")
71 (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake.
75 (setq load-source-file-function
'load-with-code-conversion
)
79 (load "faces") ; after here, `defface' may be used.
85 (message "Lists of integers (garbage collection statistics) are normal output")
86 (message "while building Emacs; they do not indicate a problem.")
87 (message "%s" (garbage-collect))
90 ;; Don't get confused if someone compiled this by mistake.
92 ;; In case loaddefs hasn't been generated yet.
93 (file-error (load "ldefs-boot.el")))
95 (message "%s" (garbage-collect))
96 (load "abbrev") ;lisp-mode.el and simple.el use define-abbrev-table.
101 (load "jka-cmpr-hook")
103 ;; Any Emacs Lisp source file (*.el) loaded here after can contain
104 ;; multilingual text.
105 (load "international/mule-cmds")
107 (load "international/characters")
109 ;; This file doesn't exist when building Emacs from CVS. It is
110 ;; generated just after temacs is build.
111 (load "international/charprop.el" t
)
113 ;; Load language-specific files.
114 (load "language/chinese")
115 (load "language/cyrillic")
116 (load "language/indian")
117 (load "language/sinhala")
118 (load "language/english")
119 (load "language/ethiopic")
120 (load "language/european")
121 (load "language/czech")
122 (load "language/slovak")
123 (load "language/romanian")
124 (load "language/greek")
125 (load "language/hebrew")
126 (load "language/japanese")
127 (load "language/korean")
128 (load "language/lao")
129 (load "language/tai-viet")
130 (load "language/thai")
131 (load "language/tibetan")
132 (load "language/vietnamese")
133 (load "language/misc-lang")
134 (load "language/utf-8-lang")
135 (load "language/georgian")
136 (load "language/khmer")
137 (load "language/burmese")
138 (load "language/cham")
143 (load "term/tty-colors")
145 ;; facemenu must be loaded before font-lock, because `facemenu-keymap'
146 ;; needs to be defined when font-lock is loaded.
148 (load "emacs-lisp/syntax")
152 (if (fboundp 'track-mouse
)
155 (and (boundp 'x-toolkit-scroll-bars
)
158 (load "emacs-lisp/timer")
162 (message "%s" (garbage-collect))
164 (load "paths.el") ;Don't get confused if someone compiled paths by mistake.
165 (load "emacs-lisp/lisp")
166 (load "textmodes/page")
168 (load "textmodes/paragraphs")
169 (load "emacs-lisp/lisp-mode")
170 (load "textmodes/text-mode")
171 (load "textmodes/fill")
172 (message "%s" (garbage-collect))
177 (if (fboundp 'x-create-frame
)
181 (load "international/fontset")
188 (load "term/common-win")
189 (load "term/x-win")))
191 (message "%s" (garbage-collect))
193 (if (eq system-type
'windows-nt
)
196 (load "term/common-win")
197 (load "term/w32-win")
202 (if (eq system-type
'ms-dos
)
207 ;; Don't load term/common-win: it isn't appropriate for the `pc'
208 ;; ``window system'', which generally behaves like a terminal.
211 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el
214 (load "emacs-lisp/easymenu") ;; for platform-related menu adjustments
215 (load "term/ns-win")))
216 (if (fboundp 'atan
) ; preload some constants and
217 (progn ; floating pt. functions if we have float support.
218 (load "emacs-lisp/float-sup")))
219 (message "%s" (garbage-collect))
223 (if (fboundp 'x-show-tip
) (load "tooltip"))
225 (message "%s" (garbage-collect))
227 ;If you want additional libraries to be preloaded and their
228 ;doc strings kept in the DOC file rather than in core,
229 ;you may load them with a "site-load.el" file.
230 ;But you must also cause them to be scanned when the DOC file
232 ;For other systems, you must edit ../src/Makefile.in.
233 (if (load "site-load" t
)
236 (if (fboundp 'x-popup-menu
)
237 (precompute-menubar-bindings))
238 ;; Turn on recording of which commands get rebound,
239 ;; for the sake of the next call to precompute-menubar-bindings.
240 (setq define-key-rebound-commands nil
)
242 ;; Determine which last version number to use
243 ;; based on the executables that now exist.
244 (if (and (or (equal (nth 3 command-line-args
) "dump")
245 (equal (nth 4 command-line-args
) "dump"))
246 (not (eq system-type
'ms-dos
)))
247 (let* ((base (concat "emacs-" emacs-version
"."))
248 (files (file-name-all-completions base default-directory
))
249 (versions (mapcar (function (lambda (name)
250 (string-to-int (substring name
(length base
)))))
252 ;; `emacs-version' is a constant, so we shouldn't change it with `setq'.
253 (defconst emacs-version
255 emacs-version
(if versions
(1+ (apply 'max versions
)) 1)))))
257 ;; Note: all compiled Lisp files loaded above this point
258 ;; must be among the ones parsed by make-docfile
259 ;; to construct DOC. Any that are not processed
260 ;; for DOC will not have doc strings in the dumped Emacs.
262 (message "Finding pointers to doc strings...")
263 (if (or (equal (nth 3 command-line-args
) "dump")
264 (equal (nth 4 command-line-args
) "dump"))
265 (let ((name emacs-version
))
266 (while (string-match "[^-+_.a-zA-Z0-9]+" name
)
267 (setq name
(concat (downcase (substring name
0 (match-beginning 0)))
269 (substring name
(match-end 0)))))
270 (if (memq system-type
'(ms-dos windows-nt
))
271 (setq name
(expand-file-name
272 (if (fboundp 'x-create-frame
) "DOC-X" "DOC") "../etc"))
273 (setq name
(concat (expand-file-name "../etc/DOC-") name
))
274 (if (file-exists-p name
)
276 (copy-file (expand-file-name "../etc/DOC") name t
))
277 (Snarf-documentation (file-name-nondirectory name
)))
279 (Snarf-documentation "DOC")
281 (message "Finding pointers to doc strings...done")
283 ;;;Note: You can cause additional libraries to be preloaded
284 ;;;by writing a site-init.el that loads them.
285 ;;;See also "site-load" above.
287 (setq current-load-list nil
)
289 ;; Write the value of load-history into fns-VERSION.el,
290 ;; then clear out load-history.
291 ;; (if (or (equal (nth 3 command-line-args) "dump")
292 ;; (equal (nth 4 command-line-args) "dump"))
293 ;; (let ((buffer-undo-list t))
294 ;; (princ "(setq load-history\n" (current-buffer))
295 ;; (princ " (nconc load-history\n" (current-buffer))
296 ;; (princ " '(" (current-buffer))
297 ;; (let ((tem load-history))
299 ;; (prin1 (car tem) (current-buffer))
300 ;; (terpri (current-buffer))
302 ;; (princ " " (current-buffer)))
303 ;; (setq tem (cdr tem))))
304 ;; (princ ")))\n" (current-buffer))
305 ;; (write-region (point-min) (point-max)
308 ;; ((eq system-type 'ms-dos)
309 ;; "../lib-src/fns.el")
310 ;; ((eq system-type 'windows-nt)
311 ;; (format "../../../lib-src/fns-%s.el" emacs-version))
313 ;; (format "../lib-src/fns-%s.el" emacs-version)))
314 ;; invocation-directory))
316 ;; (setq load-history nil))
317 ;; (setq symbol-file-load-history-loaded t))
318 ;; We don't use this fns-*.el file. Instead we keep the data in PURE space.
319 ;; Make sure that the spine of the list is not in pure space because it can
320 ;; be destructively mutated in lread.c:build_load_history.
321 (setq load-history
(mapcar 'purecopy load-history
))
322 (setq symbol-file-load-history-loaded t
)
324 (set-buffer-modified-p nil
)
326 ;; reset the load-path. See lread.c:init_lread why.
327 (if (or (equal (nth 3 command-line-args
) "bootstrap")
328 (equal (nth 4 command-line-args
) "bootstrap"))
329 (setcdr load-path nil
))
331 (setq inhibit-load-charset-map nil
)
335 ;;; At this point, we're ready to resume undo recording for scratch.
336 (buffer-enable-undo "*scratch*")
338 (if (null (garbage-collect))
339 (setq pure-space-overflow t
))
341 (if (or (member (nth 3 command-line-args
) '("dump" "bootstrap"))
342 (member (nth 4 command-line-args
) '("dump" "bootstrap")))
344 (if (memq system-type
'(ms-dos windows-nt cygwin
))
345 (message "Dumping under the name emacs")
346 (message "Dumping under the name emacs"))
348 (delete-file "emacs")
350 ;; We used to dump under the name xemacs, but that occasionally
351 ;; confused people installing Emacs (they'd install the file
352 ;; under the name `xemacs'), and it's inconsistent with every
353 ;; other GNU program's build process.
354 (dump-emacs "emacs" "temacs")
355 (message "%d pure bytes used" pure-bytes-used
)
356 ;; Recompute NAME now, so that it isn't set when we dump.
357 (if (not (or (memq system-type
'(ms-dos windows-nt cygwin
))
358 ;; Don't bother adding another name if we're just
359 ;; building bootstrap-emacs.
360 (equal (nth 3 command-line-args
) "bootstrap")
361 (equal (nth 4 command-line-args
) "bootstrap")))
362 (let ((name (concat "emacs-" emacs-version
)))
363 (while (string-match "[^-+_.a-zA-Z0-9]+" name
)
364 (setq name
(concat (downcase (substring name
0 (match-beginning 0)))
366 (substring name
(match-end 0)))))
367 (message "Adding name %s" name
)
368 (add-name-to-file "emacs" name t
)))
371 ;; Avoid error if user loads some more libraries now.
372 (setq purify-flag nil
)
374 ;; For machines with CANNOT_DUMP defined in config.h,
375 ;; this file must be loaded each time Emacs is run.
376 ;; So run the startup code now. First, remove `-l loadup' from args.
378 (if (and (equal (nth 1 command-line-args
) "-l")
379 (equal (nth 2 command-line-args
) "loadup"))
380 (setcdr command-line-args
(nthcdr 3 command-line-args
)))
386 ;; no-byte-compile: t
387 ;; no-update-autoloads: t
390 ;; arch-tag: 121e1dd4-36e1-45ac-860e-239f577a6335
391 ;;; loadup.el ends here