![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to loadup.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp|
Return to loadup.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp |
1.1 root 1: ;Load up standardly loaded Lisp files for Emacs.
2: ;; This is loaded into a bare Emacs to make a dumpable one.
3: ;; Copyright (C) 1985 Richard M. Stallman.
4:
5: ;; This file is part of GNU Emacs.
6:
7: ;; GNU Emacs is distributed in the hope that it will be useful,
8: ;; but WITHOUT ANY WARRANTY. No author or distributor
9: ;; accepts responsibility to anyone for the consequences of using it
10: ;; or for whether it serves any particular purpose or works at all,
11: ;; unless he says so in writing. Refer to the GNU Emacs General Public
12: ;; License for full details.
13:
14: ;; Everyone is granted permission to copy, modify and redistribute
15: ;; GNU Emacs, but only under the conditions described in the
16: ;; GNU Emacs General Public License. A copy of this license is
17: ;; supposed to have been given to you along with GNU Emacs so you
18: ;; can know your rights and responsibilities. It should be in a
19: ;; file named COPYING. Among other things, the copyright notice
20: ;; and this notice must be preserved on all copies.
21:
22:
23: (load "subr")
24: (load "simple")
25: (garbage-collect)
26: (load "files")
27: (garbage-collect)
28: (load "indent")
29: (load "window")
30: (load "paths.el") ;Don't get confused if someone compiled paths by mistake.
31: (garbage-collect)
32: (load "loaddefs.el") ;Don't get confused if someone compiled loaddefs by mistake.
33: (garbage-collect)
34: (load "startup")
35: (load "lisp")
36: (garbage-collect)
37: (load "page")
38: (load "register")
39: (garbage-collect)
40: (load "paragraphs")
41: (load "lisp-mode")
42: (garbage-collect)
43: (load "text-mode")
44: (load "fill")
45: (garbage-collect)
46: (load "c-mode")
47: (garbage-collect)
48: (load "isearch")
49: (garbage-collect)
50: (load "replace")
51: (garbage-collect)
52: (load "abbrev")
53: (garbage-collect)
54: (load "buff-menu")
55:
56: (load "version.el") ;Don't get confused if someone compiled version.el by mistake.
57:
58: ;; Note: all compiled Lisp files loaded above this point
59: ;; must be among the ones parsed by make-docfile
60: ;; to construct DOC. Any that are not processed
61: ;; for DOC will not have doc strings in the dumped Emacs.
62:
63: (message "Finding pointers to doc strings...")
64: (if (fboundp 'dump-emacs)
65: (progn
66: (copy-file (expand-file-name "../etc/DOC")
67: (concat (expand-file-name "../etc/DOC.") emacs-version)
68: t)
69: (Snarf-documentation (concat "DOC." emacs-version)))
70: (Snarf-documentation "DOC"))
71: (message "Finding pointers to doc strings...done")
72:
73: (lisp-interaction-mode)
74: (load "site-init" t)
75: (garbage-collect)
76:
77: (if (or (equal (nth 3 command-line-args) "dump")
78: (equal (nth 4 command-line-args) "dump"))
79: (progn
80: (message "Dumping under names xemacs and emacs-%s" emacs-version)
81: (condition-case ()
82: (delete-file "xemacs")
83: (file-error nil))
84: (dump-emacs "xemacs" "temacs")
85: (add-name-to-file "xemacs" (concat "emacs-" emacs-version) t)
86: (kill-emacs)))
87:
88: ;; Avoid error if user loads some more libraries now.
89: (setq purify-flag nil)
90:
91: ;; For machines with CANNOT_DUMP defined in config.h,
92: ;; this file must be loaded each time Emacs is run.
93: ;; So run the startup code now.
94:
95: (or (fboundp 'dump-emacs)
96: (eval top-level))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.