Mercurial > emacs
annotate lisp/loadup.el @ 41569:f403516f2134
(fill-c++-comment): Use insert instead of insert-string.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 26 Nov 2001 16:21:40 +0000 |
parents | 05093dfba0b4 |
children | 009b1f3c3049 |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
35952
diff
changeset
|
1 ;;; loadup.el --- load up standardly loaded Lisp files for Emacs |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
2 |
39729 | 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 2001 Free Software Foundation, Inc. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
5 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: internal |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
7 |
35 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
35 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
35 | 24 |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
25 ;;; Commentary: |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
26 |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
27 ;; This is loaded into a bare Emacs to make a dumpable one. |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
28 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
29 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
30 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
31 ;; add subdirectories to the load-path for files that might |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
32 ;; get autoloaded when bootstrapping |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
33 (if (or (equal (nth 3 command-line-args) "bootstrap") |
33103
ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
Ken Raeburn <raeburn@raeburn.org>
parents:
32205
diff
changeset
|
34 (equal (nth 4 command-line-args) "bootstrap") |
ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
Ken Raeburn <raeburn@raeburn.org>
parents:
32205
diff
changeset
|
35 ;; in case CANNOT_DUMP |
ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
Ken Raeburn <raeburn@raeburn.org>
parents:
32205
diff
changeset
|
36 (equal (nth 0 command-line-args) "../src/bootstrap-emacs")) |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
37 (let ((path (car load-path))) |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
38 (setq load-path (list path |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
39 (expand-file-name "emacs-lisp" path) |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
40 (expand-file-name "international" path))))) |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
41 |
1692
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
42 (message "Using load-path %s" load-path) |
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
43 |
648 | 44 ;;; We don't want to have any undo records in the dumped Emacs. |
45 (buffer-disable-undo "*scratch*") | |
35 | 46 |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
47 (load "byte-run") |
35 | 48 (load "subr") |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
49 |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
50 ;; We specify .el in case someone compiled version.el by mistake. |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
51 (load "version.el") |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
52 |
17397
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
53 (load "widget") |
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
54 (load "custom") |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
55 (load "emacs-lisp/backquote") |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
56 (load "map-ynp") |
28916 | 57 (load "env") |
17427 | 58 (load "cus-start") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
59 (load "international/mule") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
60 (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
61 (load "format") |
17783
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
62 (load "bindings") |
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
63 (setq load-source-file-function 'load-with-code-conversion) |
35 | 64 (load "simple") |
65 (load "files") | |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
66 |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
67 (load "faces") ; after here, `defface' may be used. |
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
68 |
23013
ce7367ed1f02
Add informative message about the lists of GC stats.
Richard M. Stallman <rms@gnu.org>
parents:
22965
diff
changeset
|
69 (message "Lists of integers (garbage collection statistics) are normal output") |
ce7367ed1f02
Add informative message about the lists of GC stats.
Richard M. Stallman <rms@gnu.org>
parents:
22965
diff
changeset
|
70 (message "while building Emacs; they do not indicate a problem.") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
71 (message "%s" (garbage-collect)) |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
72 (load "loaddefs.el") ;Don't get confused if someone compiled this by mistake. |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
73 (message "%s" (garbage-collect)) |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
74 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
75 (load "help") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
76 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
77 ;; Any Emacs Lisp source file (*.el) loaded here after can contain |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
78 ;; multilingual text. |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
79 (load "international/mule-cmds") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
80 (load "case-table") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
81 (load "international/characters") |
35541
b671f9509b3b
Preload international/utf-8.
Kenichi Handa <handa@m17n.org>
parents:
34872
diff
changeset
|
82 (load "international/utf-8") |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
83 |
17951
c13285663c82
Always load case-table, latin-1, latin-2, latin-3, latin-4.
Richard M. Stallman <rms@gnu.org>
parents:
17783
diff
changeset
|
84 (let ((set-case-syntax-set-multibyte t)) |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
85 (load "international/latin-1") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
86 (load "international/latin-2") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
87 (load "international/latin-3") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
88 (load "international/latin-4") |
26128 | 89 (load "international/latin-5") |
90 (load "international/latin-8") | |
91 (load "international/latin-9")) | |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
92 ;; Load language-specific files. |
17007 | 93 (load "language/chinese") |
94 (load "language/cyrillic") | |
95 (load "language/indian") | |
17990
63cfa8ed3bf9
Add comment for the code loading
Kenichi Handa <handa@m17n.org>
parents:
17951
diff
changeset
|
96 (load "language/devanagari") ; This should be loaded after indian. |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
97 (load "language/english") |
17007 | 98 (load "language/ethiopic") |
99 (load "language/european") | |
21208
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
100 (load "language/czech") |
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
101 (load "language/slovak") |
21541
f20029a36f55
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21208
diff
changeset
|
102 (load "language/romanian") |
17007 | 103 (load "language/greek") |
104 (load "language/hebrew") | |
105 (load "language/japanese") | |
106 (load "language/korean") | |
17089 | 107 (load "language/lao") |
17007 | 108 (load "language/thai") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
109 (load "language/tibetan") |
17007 | 110 (load "language/vietnamese") |
111 (load "language/misc-lang") | |
22878
c08122192a60
Call update-coding-systems-internal instead of
Kenichi Handa <handa@m17n.org>
parents:
22358
diff
changeset
|
112 (update-coding-systems-internal) |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
113 |
35 | 114 (load "indent") |
115 (load "window") | |
16174
4bbcbff8c3da
Load frame.elc unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
16162
diff
changeset
|
116 (load "frame") |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26128
diff
changeset
|
117 (load "term/tty-colors") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
118 |
11040
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
119 (if (fboundp 'frame-face-alist) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
120 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
121 (load "facemenu"))) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
122 (if (fboundp 'track-mouse) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
123 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
124 (load "mouse") |
34872
c088e2f67eb9
(toplevel): Check for x-toolkit-scroll-bars instead
Gerd Moellmann <gerd@gnu.org>
parents:
34467
diff
changeset
|
125 (and (boundp 'x-toolkit-scroll-bars) |
25121
89064915a42f
Don't load scroll-bar unless x-toolkit-scroll-bars-p
Eli Zaretskii <eliz@gnu.org>
parents:
24709
diff
changeset
|
126 (load "scroll-bar")) |
2806
fc90a9d80b5f
Preload mouse, scroll-bar and select if have multi-frames.
Richard M. Stallman <rms@gnu.org>
parents:
1703
diff
changeset
|
127 (load "select"))) |
32081
4ff954604f6f
(toplevel): Load faces before isearch.
Gerd Moellmann <gerd@gnu.org>
parents:
28916
diff
changeset
|
128 (load "isearch") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
129 |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
130 (message "%s" (garbage-collect)) |
13375 | 131 (load "menu-bar") |
35 | 132 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. |
133 (load "startup") | |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
134 (load "emacs-lisp/lisp") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
135 (load "textmodes/page") |
35 | 136 (load "register") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
137 (load "textmodes/paragraphs") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
138 (load "emacs-lisp/lisp-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
139 (load "textmodes/text-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
140 (load "textmodes/fill") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
141 (message "%s" (garbage-collect)) |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
142 |
35 | 143 (load "replace") |
144 (if (eq system-type 'vax-vms) | |
145 (progn | |
146 (load "vmsproc"))) | |
147 (load "abbrev") | |
148 (load "buff-menu") | |
149 (if (eq system-type 'vax-vms) | |
150 (progn | |
151 (load "vms-patch"))) | |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
152 (if (eq system-type 'windows-nt) |
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
153 (progn |
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
154 (load "ls-lisp") |
15086
f3024d637562
[windows-nt]: Load disp-table.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
155 (load "disp-table") ; needed to setup ibm-pc char set, see internal.el |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
156 (load "dos-w32") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
157 (load "w32-fns"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
158 (if (eq system-type 'ms-dos) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
159 (progn |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
160 (load "ls-lisp") |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
161 (load "dos-w32") |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
162 (load "dos-fns") |
22071
33fd1716466a
Load dos-vars along with dos-fns.
Richard M. Stallman <rms@gnu.org>
parents:
21541
diff
changeset
|
163 (load "dos-vars") |
35952 | 164 (load "international/ccl") ; codepage.el uses CCL en/decoder |
24709
6cfda8d96aea
For ms-dos systems, load ccl and codepage.
Eli Zaretskii <eliz@gnu.org>
parents:
24574
diff
changeset
|
165 (load "international/codepage") ; internal.el uses cpNNN coding systems |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
166 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el |
34467
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
167 (if (eq system-type 'macos) |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
168 (progn |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
169 (load "ls-lisp"))) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
170 (if (fboundp 'atan) ; preload some constants and |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
171 (progn ; floating pt. functions if we have float support. |
35 | 172 (load "float-sup"))) |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
173 (message "%s" (garbage-collect)) |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
174 |
927 | 175 (load "vc-hooks") |
13134
a880e9199b57
Added (load "ediff-hook") after loading vc-hook.
Michael Kifer <kifer@cs.stonybrook.edu>
parents:
12426
diff
changeset
|
176 (load "ediff-hook") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
177 (message "%s" (garbage-collect)) |
35 | 178 |
179 ;If you want additional libraries to be preloaded and their | |
180 ;doc strings kept in the DOC file rather than in core, | |
181 ;you may load them with a "site-load.el" file. | |
182 ;But you must also cause them to be scanned when the DOC file | |
445 | 183 ;is generated. For VMS, you must edit ../vms/makedoc.com. |
13316 | 184 ;For other systems, you must edit ../src/Makefile.in. |
35 | 185 (if (load "site-load" t) |
186 (garbage-collect)) | |
187 | |
12299
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
188 (if (fboundp 'x-popup-menu) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
189 (precompute-menubar-bindings)) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
190 ;; Turn on recording of which commands get rebound, |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
191 ;; for the sake of the next call to precompute-menubar-bindings. |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
192 (setq define-key-rebound-commands nil) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
193 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
194 ;; Determine which last version number to use |
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
195 ;; based on the executables that now exist. |
6540
fd0c4b42a63b
Don't test for presence of dump-emacs.
Richard M. Stallman <rms@gnu.org>
parents:
6318
diff
changeset
|
196 (if (and (or (equal (nth 3 command-line-args) "dump") |
fd0c4b42a63b
Don't test for presence of dump-emacs.
Richard M. Stallman <rms@gnu.org>
parents:
6318
diff
changeset
|
197 (equal (nth 4 command-line-args) "dump")) |
fd0c4b42a63b
Don't test for presence of dump-emacs.
Richard M. Stallman <rms@gnu.org>
parents:
6318
diff
changeset
|
198 (not (eq system-type 'ms-dos))) |
13342
f68eab5a63d2
(finding existing executable versions): Add a period to the end of BASE.
Richard M. Stallman <rms@gnu.org>
parents:
13316
diff
changeset
|
199 (let* ((base (concat "emacs-" emacs-version ".")) |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
200 (files (file-name-all-completions base default-directory)) |
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
201 (versions (mapcar (function (lambda (name) |
13366 | 202 (string-to-int (substring name (length base))))) |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
203 files))) |
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
204 (setq emacs-version (format "%s.%d" |
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
205 emacs-version |
5509
5d907d4216ce
If there are no subversions yet, use 1.
Richard M. Stallman <rms@gnu.org>
parents:
5505
diff
changeset
|
206 (if versions |
5d907d4216ce
If there are no subversions yet, use 1.
Richard M. Stallman <rms@gnu.org>
parents:
5505
diff
changeset
|
207 (1+ (apply 'max versions)) |
5d907d4216ce
If there are no subversions yet, use 1.
Richard M. Stallman <rms@gnu.org>
parents:
5505
diff
changeset
|
208 1))))) |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
209 |
35 | 210 ;; Note: all compiled Lisp files loaded above this point |
211 ;; must be among the ones parsed by make-docfile | |
212 ;; to construct DOC. Any that are not processed | |
213 ;; for DOC will not have doc strings in the dumped Emacs. | |
214 | |
215 (message "Finding pointers to doc strings...") | |
6540
fd0c4b42a63b
Don't test for presence of dump-emacs.
Richard M. Stallman <rms@gnu.org>
parents:
6318
diff
changeset
|
216 (if (or (equal (nth 3 command-line-args) "dump") |
fd0c4b42a63b
Don't test for presence of dump-emacs.
Richard M. Stallman <rms@gnu.org>
parents:
6318
diff
changeset
|
217 (equal (nth 4 command-line-args) "dump")) |
35 | 218 (let ((name emacs-version)) |
219 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
220 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
221 "-" | |
222 (substring name (match-end 0))))) | |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
223 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 224 (setq name (expand-file-name |
15398
e0d50fe661c0
On MSDOS, don't assume that `make-frame' is only bound under an X
Richard M. Stallman <rms@gnu.org>
parents:
15257
diff
changeset
|
225 (if (fboundp 'x-create-frame) "DOC-X" "DOC") "../etc")) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
226 (setq name (concat (expand-file-name "../etc/DOC-") name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
227 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
228 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
229 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 230 (Snarf-documentation (file-name-nondirectory name))) |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
231 (condition-case nil |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
232 (Snarf-documentation "DOC") |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
233 (error nil))) |
35 | 234 (message "Finding pointers to doc strings...done") |
235 | |
22357 | 236 ;;;Note: You can cause additional libraries to be preloaded |
237 ;;;by writing a site-init.el that loads them. | |
238 ;;;See also "site-load" above. | |
35 | 239 (load "site-init" t) |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
240 (setq current-load-list nil) |
23286
3ccc2a1aa6fa
Write load-history into etc/fns-VERSION.el, then clear it.
Karl Heuer <kwzh@gnu.org>
parents:
23013
diff
changeset
|
241 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
242 ;; Write the value of load-history into fns-VERSION.el, |
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
243 ;; then clear out load-history. |
24574
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
244 (if (or (equal (nth 3 command-line-args) "dump") |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
245 (equal (nth 4 command-line-args) "dump")) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
246 (let ((buffer-undo-list t)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
247 (princ "(setq load-history\n" (current-buffer)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
248 (princ " (nconc load-history\n" (current-buffer)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
249 (princ " '(" (current-buffer)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
250 (let ((tem load-history)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
251 (while tem |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
252 (prin1 (car tem) (current-buffer)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
253 (terpri (current-buffer)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
254 (if (cdr tem) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
255 (princ " " (current-buffer))) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
256 (setq tem (cdr tem)))) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
257 (princ ")))\n" (current-buffer)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
258 (write-region (point-min) (point-max) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
259 (expand-file-name |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
260 (cond |
24574
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
261 ((eq system-type 'ms-dos) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
262 "../lib-src/fns.el") |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
263 ((eq system-type 'windows-nt) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
264 (format "../../../lib-src/fns-%s.el" emacs-version)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
265 (t |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
266 (format "../lib-src/fns-%s.el" emacs-version))) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
267 invocation-directory)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
268 (erase-buffer) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
269 (setq load-history nil)) |
baecd14c2bb2
Don't write the fns-...el file if not dumping.
Richard M. Stallman <rms@gnu.org>
parents:
23828
diff
changeset
|
270 (setq symbol-file-load-history-loaded t)) |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
271 (set-buffer-modified-p nil) |
23286
3ccc2a1aa6fa
Write load-history into etc/fns-VERSION.el, then clear it.
Karl Heuer <kwzh@gnu.org>
parents:
23013
diff
changeset
|
272 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
273 ;; reset the load-path. See lread.c:init_lread why. |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
274 (if (or (equal (nth 3 command-line-args) "bootstrap") |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
275 (equal (nth 4 command-line-args) "bootstrap")) |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
276 (setcdr load-path nil)) |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
277 |
35 | 278 (garbage-collect) |
279 | |
648 | 280 ;;; At this point, we're ready to resume undo recording for scratch. |
281 (buffer-enable-undo "*scratch*") | |
282 | |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
283 (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) |
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
284 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
35 | 285 (if (eq system-type 'vax-vms) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
286 (progn |
35 | 287 (message "Dumping data as file temacs.dump") |
288 (dump-emacs "temacs.dump" "temacs") | |
289 (kill-emacs)) | |
290 (let ((name (concat "emacs-" emacs-version))) | |
291 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
292 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
293 "-" | |
294 (substring name (match-end 0))))) | |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
295 (if (eq system-type 'ms-dos) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
296 (message "Dumping under the name emacs") |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
297 (message "Dumping under names emacs and %s" name))) |
35 | 298 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
299 (delete-file "emacs") |
35 | 300 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
301 ;; We used to dump under the name xemacs, but that occasionally |
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
302 ;; confused people installing Emacs (they'd install the file |
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
303 ;; under the name `xemacs'), and it's inconsistent with every |
22357 | 304 ;; other GNU program's build process. |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
305 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
306 (message "%d pure bytes used" pure-bytes-used) |
35 | 307 ;; Recompute NAME now, so that it isn't set when we dump. |
11398 | 308 (if (not (memq system-type '(ms-dos windows-nt))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
309 (let ((name (concat "emacs-" emacs-version))) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
310 (while (string-match "[^-+_.a-zA-Z0-9]+" name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
311 (setq name (concat (downcase (substring name 0 (match-beginning 0))) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
312 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
313 (substring name (match-end 0))))) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
314 (add-name-to-file "emacs" name t))) |
35 | 315 (kill-emacs))) |
316 | |
317 ;; Avoid error if user loads some more libraries now. | |
318 (setq purify-flag nil) | |
319 | |
320 ;; For machines with CANNOT_DUMP defined in config.h, | |
321 ;; this file must be loaded each time Emacs is run. | |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
322 ;; So run the startup code now. First, remove `-l loadup' from args. |
35 | 323 |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
324 (if (and (equal (nth 1 command-line-args) "-l") |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
325 (equal (nth 2 command-line-args) "loadup")) |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
326 (setcdr command-line-args (nthcdr 3 command-line-args))) |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
327 |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
328 (eval top-level) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
329 |
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
330 ;;; loadup.el ends here |