Mercurial > emacs
annotate lisp/loadup.el @ 109692:58882317bf04
* PROBLEMS: Mention problem with Cygwin 1.5.19.
author | Ken Brown <kbrown@cornell.edu> |
---|---|
date | Tue, 27 Jul 2010 15:50:01 -0400 |
parents | 70a26e6c7332 |
children | 265966b778f9 376148b31b5e |
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 |
104938 | 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
6 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Keywords: internal |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
8 |
35 | 9 ;; This file is part of GNU Emacs. |
10 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94512
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
35 | 12 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94512
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94512
diff
changeset
|
14 ;; (at your option) any later version. |
35 | 15 |
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. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94512
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
35 | 23 |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
24 ;;; Commentary: |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
25 |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
26 ;; 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
|
27 |
105215 | 28 ;; If you add/remove Lisp files to be loaded here, consider the |
29 ;; following issues: | |
30 | |
31 ;; i) Any file loaded on all platforms should appear in $lisp | |
32 ;; and $shortlisp in src/Makefile.in. Use the .el or .elc version as | |
33 ;; appropriate. | |
34 | |
35 ;; ii) Any file that is only loaded on some platforms should appear | |
36 ;; in the version of $lisp in the generated Makefile on that platform. | |
37 ;; At the present time, this is achieved by use of #ifdefs. | |
38 ;; It should also appear in $SOME_MACHINE_LISP on all platforms. | |
39 | |
40 ;; The above steps ensure both that the Lisp files are compiled (if | |
41 ;; necessary) before the emacs executable is dumped, and that they are | |
42 ;; passed to make-docfile. (Any that are not processed for DOC will | |
43 ;; not have doc strings in the dumped Emacs.) Because of this: | |
44 | |
45 ;; iii) If the file is loaded uncompiled, it should (where possible) | |
46 ;; obey the doc-string conventions expected by make-docfile. | |
47 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
48 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
49 |
105215 | 50 ;; Add subdirectories to the load-path for files that might get |
51 ;; autoloaded when bootstrapping. | |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
52 (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
|
53 (equal (nth 4 command-line-args) "bootstrap") |
90171
36268d866121
If we are byte-compiling unidata-gen.el or running
Kenichi Handa <handa@m17n.org>
parents:
90164
diff
changeset
|
54 (equal (nth 3 command-line-args) "unidata-gen.el") |
36268d866121
If we are byte-compiling unidata-gen.el or running
Kenichi Handa <handa@m17n.org>
parents:
90164
diff
changeset
|
55 (equal (nth 4 command-line-args) "unidata-gen-files") |
105215 | 56 ;; In case CANNOT_DUMP. |
33103
ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
Ken Raeburn <raeburn@raeburn.org>
parents:
32205
diff
changeset
|
57 (equal (nth 0 command-line-args) "../src/bootstrap-emacs")) |
49333
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
58 (let ((dir (car load-path))) |
44595
88b67f986f64
(bootstrap): Don't bother using the pure space.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44444
diff
changeset
|
59 ;; We'll probably overflow the pure space. |
88b67f986f64
(bootstrap): Don't bother using the pure space.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44444
diff
changeset
|
60 (setq purify-flag nil) |
49333
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
61 (setq load-path (list dir |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
62 (expand-file-name "emacs-lisp" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
63 (expand-file-name "language" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
64 (expand-file-name "international" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
65 (expand-file-name "textmodes" dir))))) |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
66 |
1692
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
67 (message "Using load-path %s" load-path) |
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
68 |
99983
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
69 (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
70 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
71 ;; To reduce the size of dumped Emacs, we avoid making huge |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
72 ;; char-tables. |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
73 (setq inhibit-load-charset-map t)) |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
74 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
75 ;; We don't want to have any undo records in the dumped Emacs. |
59126
7c8ecf412b73
Don't use buffer-disable-undo; do it directly.
Richard M. Stallman <rms@gnu.org>
parents:
54821
diff
changeset
|
76 (set-buffer "*scratch*") |
7c8ecf412b73
Don't use buffer-disable-undo; do it directly.
Richard M. Stallman <rms@gnu.org>
parents:
54821
diff
changeset
|
77 (setq buffer-undo-list t) |
35 | 78 |
51354
abad152707e5
Load byte-run.el, map-ynp.el, timer.el and float-sup.el from emacs-lisp.
Juanma Barranquero <lekktu@gmail.com>
parents:
49712
diff
changeset
|
79 (load "emacs-lisp/byte-run") |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
80 (load "emacs-lisp/backquote") |
35 | 81 (load "subr") |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
82 |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
83 ;; Do it after subr, since both after-load-functions and add-hook are |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
84 ;; implemented in subr.el. |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
85 (add-hook 'after-load-functions '(lambda (f) (garbage-collect))) |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
86 |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
87 ;; 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
|
88 (load "version.el") |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
89 |
17397
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
90 (load "widget") |
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
91 (load "custom") |
51354
abad152707e5
Load byte-run.el, map-ynp.el, timer.el and float-sup.el from emacs-lisp.
Juanma Barranquero <lekktu@gmail.com>
parents:
49712
diff
changeset
|
92 (load "emacs-lisp/map-ynp") |
17427 | 93 (load "cus-start") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
94 (load "international/mule") |
105949
981ea078cf76
* Makefile.in (ELCFILES): Add international/mule-conf.elc.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105215
diff
changeset
|
95 (load "international/mule-conf") |
83465
3ec9cf0f2305
Fix bootstrapping problem. (Reported by "mace".)
Karoly Lorentey <lorentey@elte.hu>
parents:
83416
diff
changeset
|
96 (load "env") |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
97 (load "format") |
17783
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
98 (load "bindings") |
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
99 (setq load-source-file-function 'load-with-code-conversion) |
35 | 100 (load "files") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
101 |
44894
b40fd90ad243
Explicitly load cus-face and timer.
Richard M. Stallman <rms@gnu.org>
parents:
44595
diff
changeset
|
102 (load "cus-face") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
103 (load "faces") ; after here, `defface' may be used. |
94040
59143f6957b1
("minibuffer"): Move after "faces".
Eli Zaretskii <eliz@gnu.org>
parents:
94001
diff
changeset
|
104 (load "minibuffer") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
105 |
79367
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
106 (load "button") |
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
107 (load "startup") |
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
108 |
94001
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
109 (condition-case nil |
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
110 ;; Don't get confused if someone compiled this by mistake. |
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
111 (load "loaddefs.el") |
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
112 ;; In case loaddefs hasn't been generated yet. |
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
113 (file-error (load "ldefs-boot.el"))) |
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
114 |
94062
9fefa536be58
* minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94040
diff
changeset
|
115 (load "abbrev") ;lisp-mode.el and simple.el use define-abbrev-table. |
47407
32ab444f1795
("simple.el"): Move to after loaddefs.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46509
diff
changeset
|
116 (load "simple") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
117 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
118 (load "help") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
119 |
70886
90aed8c16a53
("jka-cmpr-hook"): Load it before it is needed.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69051
diff
changeset
|
120 (load "jka-cmpr-hook") |
94753
b4b4a4b9fdb5
("epa-hook"): Load epa-hook instead of epa-file-hook.
Eli Zaretskii <eliz@gnu.org>
parents:
94678
diff
changeset
|
121 (load "epa-hook") |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
122 ;; 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
|
123 ;; multilingual text. |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
124 (load "international/mule-cmds") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
125 (load "case-table") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
126 (load "international/characters") |
89305 | 127 (load "composite") |
107186 | 128 ;; This file doesn't exist when building a development version of Emacs |
129 ;; from the repository. It is generated just after temacs is built. | |
90164
4a8b8c6bfa9b
Load international/charprop.el with NOERROR t.
Kenichi Handa <handa@m17n.org>
parents:
90159
diff
changeset
|
130 (load "international/charprop.el" t) |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
131 |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
132 ;; Load language-specific files. |
17007 | 133 (load "language/chinese") |
134 (load "language/cyrillic") | |
135 (load "language/indian") | |
92070
7c76fd775350
Don't load language/devanagari, language/kannanda,
Kenichi Handa <handa@m17n.org>
parents:
91383
diff
changeset
|
136 (load "language/sinhala") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
137 (load "language/english") |
17007 | 138 (load "language/ethiopic") |
139 (load "language/european") | |
21208
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
140 (load "language/czech") |
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
141 (load "language/slovak") |
21541
f20029a36f55
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21208
diff
changeset
|
142 (load "language/romanian") |
17007 | 143 (load "language/greek") |
144 (load "language/hebrew") | |
145 (load "language/japanese") | |
146 (load "language/korean") | |
17089 | 147 (load "language/lao") |
90940 | 148 (load "language/tai-viet") |
17007 | 149 (load "language/thai") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
150 (load "language/tibetan") |
17007 | 151 (load "language/vietnamese") |
152 (load "language/misc-lang") | |
42143
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
153 (load "language/utf-8-lang") |
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
154 (load "language/georgian") |
91313
bc228f9f325d
Load "language/khmer" and "language/myanmar".
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
155 (load "language/khmer") |
91383
b15ca364bcf8
Load language/burmese instead of language/mynamar.
Andreas Schwab <schwab@suse.de>
parents:
91361
diff
changeset
|
156 (load "language/burmese") |
91361 | 157 (load "language/cham") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
158 |
35 | 159 (load "indent") |
160 (load "window") | |
16174
4bbcbff8c3da
Load frame.elc unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
16162
diff
changeset
|
161 (load "frame") |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26128
diff
changeset
|
162 (load "term/tty-colors") |
45446 | 163 (load "font-core") |
67199
3964a8b287a0
Add comment explaining why facemenu must be loaded before font-lock.
Luc Teirlinck <teirllm@auburn.edu>
parents:
67173
diff
changeset
|
164 ;; facemenu must be loaded before font-lock, because `facemenu-keymap' |
3964a8b287a0
Add comment explaining why facemenu must be loaded before font-lock.
Luc Teirlinck <teirllm@auburn.edu>
parents:
67173
diff
changeset
|
165 ;; needs to be defined when font-lock is loaded. |
67173
07c0d164f125
("facemenu"): Load facemenu before font-lock, because
Luc Teirlinck <teirllm@auburn.edu>
parents:
66906
diff
changeset
|
166 (load "facemenu") |
66579
621fdbc28285
* loadup.el: Load emacs-lisp/syntax, font-lock and jit-lock so
Dan Nicolaescu <dann@ics.uci.edu>
parents:
66491
diff
changeset
|
167 (load "emacs-lisp/syntax") |
621fdbc28285
* loadup.el: Load emacs-lisp/syntax, font-lock and jit-lock so
Dan Nicolaescu <dann@ics.uci.edu>
parents:
66491
diff
changeset
|
168 (load "font-lock") |
621fdbc28285
* loadup.el: Load emacs-lisp/syntax, font-lock and jit-lock so
Dan Nicolaescu <dann@ics.uci.edu>
parents:
66491
diff
changeset
|
169 (load "jit-lock") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
170 |
11040
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
171 (if (fboundp 'track-mouse) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
172 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
173 (load "mouse") |
34872
c088e2f67eb9
(toplevel): Check for x-toolkit-scroll-bars instead
Gerd Moellmann <gerd@gnu.org>
parents:
34467
diff
changeset
|
174 (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
|
175 (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
|
176 (load "select"))) |
51354
abad152707e5
Load byte-run.el, map-ynp.el, timer.el and float-sup.el from emacs-lisp.
Juanma Barranquero <lekktu@gmail.com>
parents:
49712
diff
changeset
|
177 (load "emacs-lisp/timer") |
32081
4ff954604f6f
(toplevel): Load faces before isearch.
Gerd Moellmann <gerd@gnu.org>
parents:
28916
diff
changeset
|
178 (load "isearch") |
66906 | 179 (load "rfn-eshadow") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
180 |
13375 | 181 (load "menu-bar") |
35 | 182 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
183 (load "emacs-lisp/lisp") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
184 (load "textmodes/page") |
35 | 185 (load "register") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
186 (load "textmodes/paragraphs") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
187 (load "emacs-lisp/lisp-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
188 (load "textmodes/text-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
189 (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
|
190 |
35 | 191 (load "replace") |
192 (load "buff-menu") | |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
193 |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
194 (if (fboundp 'x-create-frame) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
195 (progn |
69051
c3909e10eb35
Load "fringe" on window systems.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
196 (load "fringe") |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
197 (load "image") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
198 (load "international/fontset") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
199 (load "dnd") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
200 (load "tool-bar"))) |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105949
diff
changeset
|
201 |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105949
diff
changeset
|
202 (if (or (featurep 'system-font-setting) (featurep 'font-render-setting)) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105949
diff
changeset
|
203 (load "font-setting")) |
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105949
diff
changeset
|
204 |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
205 (if (featurep 'x) |
83588
46d454fde388
Only load x-dnd and x-win when X is compiled in.
Jason Rumney <jasonr@gnu.org>
parents:
83554
diff
changeset
|
206 (progn |
83398
c090869028e6
Fix some of the bootstrap problems.
Karoly Lorentey <lorentey@elte.hu>
parents:
83397
diff
changeset
|
207 (load "x-dnd") |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96707
diff
changeset
|
208 (load "term/common-win") |
83397
693e794b57bf
Merged from miles@gnu.org--gnu-2005 (patch 149-151, 629-641)
Karoly Lorentey <lorentey@elte.hu>
diff
changeset
|
209 (load "term/x-win"))) |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96707
diff
changeset
|
210 |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
211 (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
|
212 (progn |
85500
0dcd1f3c9909
* textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84704
diff
changeset
|
213 (load "w32-vars") |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96707
diff
changeset
|
214 (load "term/common-win") |
83588
46d454fde388
Only load x-dnd and x-win when X is compiled in.
Jason Rumney <jasonr@gnu.org>
parents:
83554
diff
changeset
|
215 (load "term/w32-win") |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
216 (load "ls-lisp") |
97664 | 217 (load "disp-table") |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
218 (load "dos-w32") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
219 (load "w32-fns"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
220 (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
|
221 (progn |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
222 (load "dos-w32") |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
223 (load "dos-fns") |
22071
33fd1716466a
Load dos-vars along with dos-fns.
Richard M. Stallman <rms@gnu.org>
parents:
21541
diff
changeset
|
224 (load "dos-vars") |
97664 | 225 ;; Don't load term/common-win: it isn't appropriate for the `pc' |
226 ;; ``window system'', which generally behaves like a terminal. | |
227 (load "term/pc-win") | |
228 (load "ls-lisp") | |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
229 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el |
96921 | 230 (if (featurep 'ns) |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
231 (progn |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
232 (load "emacs-lisp/easymenu") ;; for platform-related menu adjustments |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
233 (load "term/ns-win"))) |
104979
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
234 (if (fboundp 'x-create-frame) |
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
235 ;; Do it after loading term/foo-win.el since the value of the |
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
236 ;; mouse-wheel-*-event vars depends on those files being loaded or not. |
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
237 (load "mwheel")) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
238 (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
|
239 (progn ; floating pt. functions if we have float support. |
51354
abad152707e5
Load byte-run.el, map-ynp.el, timer.el and float-sup.el from emacs-lisp.
Juanma Barranquero <lekktu@gmail.com>
parents:
49712
diff
changeset
|
240 (load "emacs-lisp/float-sup"))) |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
241 |
927 | 242 (load "vc-hooks") |
13134
a880e9199b57
Added (load "ediff-hook") after loading vc-hook.
Michael Kifer <kifer@cs.stonybrook.edu>
parents:
12426
diff
changeset
|
243 (load "ediff-hook") |
61567
7e8e06678917
Load tooltip if x-show-tip is fboundp.
Luc Teirlinck <teirllm@auburn.edu>
parents:
59126
diff
changeset
|
244 (if (fboundp 'x-show-tip) (load "tooltip")) |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
245 |
35 | 246 ;If you want additional libraries to be preloaded and their |
247 ;doc strings kept in the DOC file rather than in core, | |
248 ;you may load them with a "site-load.el" file. | |
249 ;But you must also cause them to be scanned when the DOC file | |
97142 | 250 ;is generated. |
13316 | 251 ;For other systems, you must edit ../src/Makefile.in. |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
252 (load "site-load" t) |
35 | 253 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
254 ;; 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
|
255 ;; 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
|
256 (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
|
257 (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
|
258 (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
|
259 (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
|
260 (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
|
261 (versions (mapcar (function (lambda (name) |
13366 | 262 (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
|
263 files))) |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
264 ;; `emacs-version' is a constant, so we shouldn't change it with `setq'. |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
265 (defconst emacs-version |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
266 (format "%s.%d" |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
267 emacs-version (if versions (1+ (apply 'max versions)) 1))))) |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
268 |
35 | 269 |
270 (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
|
271 (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
|
272 (equal (nth 4 command-line-args) "dump")) |
35 | 273 (let ((name emacs-version)) |
274 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
275 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
276 "-" | |
277 (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
|
278 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 279 (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
|
280 (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
|
281 (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
|
282 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
283 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
284 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 285 (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
|
286 (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
|
287 (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
|
288 (error nil))) |
35 | 289 (message "Finding pointers to doc strings...done") |
290 | |
22357 | 291 ;;;Note: You can cause additional libraries to be preloaded |
292 ;;;by writing a site-init.el that loads them. | |
293 ;;;See also "site-load" above. | |
35 | 294 (load "site-init" t) |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
295 (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
|
296 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
297 ;; 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
|
298 ;; then clear out load-history. |
44444
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
299 ;; (if (or (equal (nth 3 command-line-args) "dump") |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
300 ;; (equal (nth 4 command-line-args) "dump")) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
301 ;; (let ((buffer-undo-list t)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
302 ;; (princ "(setq load-history\n" (current-buffer)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
303 ;; (princ " (nconc load-history\n" (current-buffer)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
304 ;; (princ " '(" (current-buffer)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
305 ;; (let ((tem load-history)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
306 ;; (while tem |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
307 ;; (prin1 (car tem) (current-buffer)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
308 ;; (terpri (current-buffer)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
309 ;; (if (cdr tem) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
310 ;; (princ " " (current-buffer))) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
311 ;; (setq tem (cdr tem)))) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
312 ;; (princ ")))\n" (current-buffer)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
313 ;; (write-region (point-min) (point-max) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
314 ;; (expand-file-name |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
315 ;; (cond |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
316 ;; ((eq system-type 'ms-dos) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
317 ;; "../lib-src/fns.el") |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
318 ;; ((eq system-type 'windows-nt) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
319 ;; (format "../../../lib-src/fns-%s.el" emacs-version)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
320 ;; (t |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
321 ;; (format "../lib-src/fns-%s.el" emacs-version))) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
322 ;; invocation-directory)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
323 ;; (erase-buffer) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
324 ;; (setq load-history nil)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
325 ;; (setq symbol-file-load-history-loaded t)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
326 ;; We don't use this fns-*.el file. Instead we keep the data in PURE space. |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
327 ;; Make sure that the spine of the list is not in pure space because it can |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
328 ;; be destructively mutated in lread.c:build_load_history. |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
329 (setq load-history (mapcar 'purecopy load-history)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
330 (setq symbol-file-load-history-loaded t) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
331 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
332 (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
|
333 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
334 ;; 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
|
335 (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
|
336 (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
|
337 (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
|
338 |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
339 (remove-hook 'after-load-functions '(lambda (f) (garbage-collect))) |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
340 |
99983
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
341 (setq inhibit-load-charset-map nil) |
88399
c93a7728939b
Don't load "international/utf-8". Don't call
Kenichi Handa <handa@m17n.org>
parents:
42849
diff
changeset
|
342 (clear-charset-maps) |
35 | 343 (garbage-collect) |
344 | |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
345 ;; At this point, we're ready to resume undo recording for scratch. |
648 | 346 (buffer-enable-undo "*scratch*") |
347 | |
51699
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
348 (if (null (garbage-collect)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
349 (setq pure-space-overflow t)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
350 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
351 (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
|
352 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
97142 | 353 (progn |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
354 (if (memq system-type '(ms-dos windows-nt cygwin)) |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
355 (message "Dumping under the name emacs") |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
356 (message "Dumping under the name emacs")) |
35 | 357 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
358 (delete-file "emacs") |
35 | 359 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
360 ;; 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
|
361 ;; 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
|
362 ;; under the name `xemacs'), and it's inconsistent with every |
22357 | 363 ;; 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
|
364 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
365 (message "%d pure bytes used" pure-bytes-used) |
35 | 366 ;; Recompute NAME now, so that it isn't set when we dump. |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
367 (if (not (or (memq system-type '(ms-dos windows-nt cygwin)) |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
368 ;; Don't bother adding another name if we're just |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
369 ;; building bootstrap-emacs. |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
370 (equal (nth 3 command-line-args) "bootstrap") |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
371 (equal (nth 4 command-line-args) "bootstrap"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
372 (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
|
373 (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
|
374 (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
|
375 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
376 (substring name (match-end 0))))) |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
377 (message "Adding name %s" name) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
378 (add-name-to-file "emacs" name t))) |
35 | 379 (kill-emacs))) |
380 | |
381 ;; Avoid error if user loads some more libraries now. | |
382 (setq purify-flag nil) | |
383 | |
384 ;; For machines with CANNOT_DUMP defined in config.h, | |
385 ;; 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
|
386 ;; So run the startup code now. First, remove `-l loadup' from args. |
35 | 387 |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
388 (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
|
389 (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
|
390 (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
|
391 |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
392 (eval top-level) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
393 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
394 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
395 ;; Local Variables: |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
396 ;; no-byte-compile: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
397 ;; no-update-autoloads: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
398 ;; End: |
52401 | 399 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
400 ;; arch-tag: 121e1dd4-36e1-45ac-860e-239f577a6335 |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
401 ;;; loadup.el ends here |