Mercurial > emacs
annotate lisp/loadup.el @ 98660:90b078ed2dc4
(grep-mode-tool-bar-map): Check if tool-bar-map has been initialized
before setting it up.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 12 Oct 2008 13:46:13 +0000 |
parents | 3fdcdddf14a8 |
children | 3634b7edab06 |
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 |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64091
diff
changeset
|
3 ;; Copyright (C) 1985, 1986, 1992, 1994, 2001, 2002, 2003, |
79721 | 4 ;; 2004, 2005, 2006, 2007, 2008 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 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
28 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
29 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
30 ;; 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
|
31 ;; 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
|
32 (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
|
33 (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
|
34 (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
|
35 (equal (nth 4 command-line-args) "unidata-gen-files") |
33103
ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
Ken Raeburn <raeburn@raeburn.org>
parents:
32205
diff
changeset
|
36 ;; 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
|
37 (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
|
38 (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
|
39 ;; 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
|
40 (setq purify-flag nil) |
49333
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
41 (setq load-path (list dir |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
42 (expand-file-name "emacs-lisp" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
43 (expand-file-name "language" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
44 (expand-file-name "international" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
45 (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
|
46 |
1692
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
47 (message "Using load-path %s" load-path) |
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
48 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
49 ;; 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
|
50 (set-buffer "*scratch*") |
7c8ecf412b73
Don't use buffer-disable-undo; do it directly.
Richard M. Stallman <rms@gnu.org>
parents:
54821
diff
changeset
|
51 (setq buffer-undo-list t) |
35 | 52 |
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
|
53 (load "emacs-lisp/byte-run") |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
54 (load "emacs-lisp/backquote") |
35 | 55 (load "subr") |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
56 |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
57 ;; 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
|
58 (load "version.el") |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
59 |
17397
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
60 (load "widget") |
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
61 (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
|
62 (load "emacs-lisp/map-ynp") |
17427 | 63 (load "cus-start") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
64 (load "international/mule") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
65 (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. |
83465
3ec9cf0f2305
Fix bootstrapping problem. (Reported by "mace".)
Karoly Lorentey <lorentey@elte.hu>
parents:
83416
diff
changeset
|
66 (load "env") |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
67 (load "format") |
17783
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
68 (load "bindings") |
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
69 (setq load-source-file-function 'load-with-code-conversion) |
35 | 70 (load "files") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
71 |
44894
b40fd90ad243
Explicitly load cus-face and timer.
Richard M. Stallman <rms@gnu.org>
parents:
44595
diff
changeset
|
72 (load "cus-face") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
73 (load "faces") ; after here, `defface' may be used. |
94040
59143f6957b1
("minibuffer"): Move after "faces".
Eli Zaretskii <eliz@gnu.org>
parents:
94001
diff
changeset
|
74 (load "minibuffer") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
75 |
79367
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
76 (load "button") |
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
77 (load "startup") |
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
78 |
23013
ce7367ed1f02
Add informative message about the lists of GC stats.
Richard M. Stallman <rms@gnu.org>
parents:
22965
diff
changeset
|
79 (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
|
80 (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
|
81 (message "%s" (garbage-collect)) |
94001
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
82 |
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
83 (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
|
84 ;; 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
|
85 (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
|
86 ;; 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
|
87 (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
|
88 |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
89 (message "%s" (garbage-collect)) |
94062
9fefa536be58
* minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94040
diff
changeset
|
90 (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
|
91 (load "simple") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
92 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
93 (load "help") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
94 |
70886
90aed8c16a53
("jka-cmpr-hook"): Load it before it is needed.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69051
diff
changeset
|
95 (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
|
96 (load "epa-hook") |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
97 ;; 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
|
98 ;; multilingual text. |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
99 (load "international/mule-cmds") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
100 (load "case-table") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
101 (load "international/characters") |
89305 | 102 (load "composite") |
90164
4a8b8c6bfa9b
Load international/charprop.el with NOERROR t.
Kenichi Handa <handa@m17n.org>
parents:
90159
diff
changeset
|
103 ;; This file doesn't exist when building Emacs from CVS. It is |
4a8b8c6bfa9b
Load international/charprop.el with NOERROR t.
Kenichi Handa <handa@m17n.org>
parents:
90159
diff
changeset
|
104 ;; generated just after temacs is build. |
4a8b8c6bfa9b
Load international/charprop.el with NOERROR t.
Kenichi Handa <handa@m17n.org>
parents:
90159
diff
changeset
|
105 (load "international/charprop.el" t) |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
106 |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
107 ;; Load language-specific files. |
17007 | 108 (load "language/chinese") |
109 (load "language/cyrillic") | |
110 (load "language/indian") | |
92070
7c76fd775350
Don't load language/devanagari, language/kannanda,
Kenichi Handa <handa@m17n.org>
parents:
91383
diff
changeset
|
111 (load "language/sinhala") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
112 (load "language/english") |
17007 | 113 (load "language/ethiopic") |
114 (load "language/european") | |
21208
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
115 (load "language/czech") |
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
116 (load "language/slovak") |
21541
f20029a36f55
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21208
diff
changeset
|
117 (load "language/romanian") |
17007 | 118 (load "language/greek") |
119 (load "language/hebrew") | |
120 (load "language/japanese") | |
121 (load "language/korean") | |
17089 | 122 (load "language/lao") |
90940 | 123 (load "language/tai-viet") |
17007 | 124 (load "language/thai") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
125 (load "language/tibetan") |
17007 | 126 (load "language/vietnamese") |
127 (load "language/misc-lang") | |
42143
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
128 (load "language/utf-8-lang") |
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
129 (load "language/georgian") |
91313
bc228f9f325d
Load "language/khmer" and "language/myanmar".
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
130 (load "language/khmer") |
91383
b15ca364bcf8
Load language/burmese instead of language/mynamar.
Andreas Schwab <schwab@suse.de>
parents:
91361
diff
changeset
|
131 (load "language/burmese") |
91361 | 132 (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
|
133 |
35 | 134 (load "indent") |
135 (load "window") | |
16174
4bbcbff8c3da
Load frame.elc unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
16162
diff
changeset
|
136 (load "frame") |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26128
diff
changeset
|
137 (load "term/tty-colors") |
45446 | 138 (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
|
139 ;; 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
|
140 ;; 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
|
141 (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
|
142 (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
|
143 (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
|
144 (load "jit-lock") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
145 |
11040
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
146 (if (fboundp 'track-mouse) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
147 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
148 (load "mouse") |
34872
c088e2f67eb9
(toplevel): Check for x-toolkit-scroll-bars instead
Gerd Moellmann <gerd@gnu.org>
parents:
34467
diff
changeset
|
149 (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
|
150 (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
|
151 (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
|
152 (load "emacs-lisp/timer") |
32081
4ff954604f6f
(toplevel): Load faces before isearch.
Gerd Moellmann <gerd@gnu.org>
parents:
28916
diff
changeset
|
153 (load "isearch") |
66906 | 154 (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
|
155 |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
156 (message "%s" (garbage-collect)) |
13375 | 157 (load "menu-bar") |
35 | 158 (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
|
159 (load "emacs-lisp/lisp") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
160 (load "textmodes/page") |
35 | 161 (load "register") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
162 (load "textmodes/paragraphs") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
163 (load "emacs-lisp/lisp-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
164 (load "textmodes/text-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
165 (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
|
166 (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
|
167 |
35 | 168 (load "replace") |
169 (load "buff-menu") | |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
170 |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
171 (if (fboundp 'x-create-frame) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
172 (progn |
69051
c3909e10eb35
Load "fringe" on window systems.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
173 (load "fringe") |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
174 (load "image") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
175 (load "international/fontset") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
176 (load "dnd") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
177 (load "mwheel") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
178 (load "tool-bar"))) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
179 (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
|
180 (progn |
83398
c090869028e6
Fix some of the bootstrap problems.
Karoly Lorentey <lorentey@elte.hu>
parents:
83397
diff
changeset
|
181 (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
|
182 (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
|
183 (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
|
184 |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
185 (message "%s" (garbage-collect)) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
186 |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
187 (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
|
188 (progn |
85500
0dcd1f3c9909
* textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84704
diff
changeset
|
189 (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
|
190 (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
|
191 (load "term/w32-win") |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
192 (load "ls-lisp") |
97664 | 193 (load "disp-table") |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
194 (load "dos-w32") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
195 (load "w32-fns"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
196 (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
|
197 (progn |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
198 (load "dos-w32") |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
199 (load "dos-fns") |
22071
33fd1716466a
Load dos-vars along with dos-fns.
Richard M. Stallman <rms@gnu.org>
parents:
21541
diff
changeset
|
200 (load "dos-vars") |
97664 | 201 ;; Don't load term/common-win: it isn't appropriate for the `pc' |
202 ;; ``window system'', which generally behaves like a terminal. | |
203 (load "term/pc-win") | |
204 (load "ls-lisp") | |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
205 (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
|
206 (if (eq system-type 'macos) |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
207 (progn |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
208 (load "ls-lisp"))) |
96921 | 209 (if (featurep 'ns) |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
210 (progn |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
211 (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
|
212 (load "term/ns-win"))) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
213 (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
|
214 (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
|
215 (load "emacs-lisp/float-sup"))) |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
216 (message "%s" (garbage-collect)) |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
217 |
927 | 218 (load "vc-hooks") |
13134
a880e9199b57
Added (load "ediff-hook") after loading vc-hook.
Michael Kifer <kifer@cs.stonybrook.edu>
parents:
12426
diff
changeset
|
219 (load "ediff-hook") |
61567
7e8e06678917
Load tooltip if x-show-tip is fboundp.
Luc Teirlinck <teirllm@auburn.edu>
parents:
59126
diff
changeset
|
220 (if (fboundp 'x-show-tip) (load "tooltip")) |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
221 |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
222 (message "%s" (garbage-collect)) |
35 | 223 |
224 ;If you want additional libraries to be preloaded and their | |
225 ;doc strings kept in the DOC file rather than in core, | |
226 ;you may load them with a "site-load.el" file. | |
227 ;But you must also cause them to be scanned when the DOC file | |
97142 | 228 ;is generated. |
13316 | 229 ;For other systems, you must edit ../src/Makefile.in. |
35 | 230 (if (load "site-load" t) |
231 (garbage-collect)) | |
232 | |
12299
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
233 (if (fboundp 'x-popup-menu) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
234 (precompute-menubar-bindings)) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
235 ;; Turn on recording of which commands get rebound, |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
236 ;; 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
|
237 (setq define-key-rebound-commands nil) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
238 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
239 ;; 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
|
240 ;; 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
|
241 (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
|
242 (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
|
243 (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
|
244 (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
|
245 (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
|
246 (versions (mapcar (function (lambda (name) |
13366 | 247 (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
|
248 files))) |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
249 ;; `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
|
250 (defconst emacs-version |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
251 (format "%s.%d" |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
252 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
|
253 |
35 | 254 ;; Note: all compiled Lisp files loaded above this point |
255 ;; must be among the ones parsed by make-docfile | |
256 ;; to construct DOC. Any that are not processed | |
257 ;; for DOC will not have doc strings in the dumped Emacs. | |
258 | |
259 (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
|
260 (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
|
261 (equal (nth 4 command-line-args) "dump")) |
35 | 262 (let ((name emacs-version)) |
263 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
264 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
265 "-" | |
266 (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
|
267 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 268 (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
|
269 (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
|
270 (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
|
271 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
272 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
273 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 274 (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
|
275 (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
|
276 (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
|
277 (error nil))) |
35 | 278 (message "Finding pointers to doc strings...done") |
279 | |
22357 | 280 ;;;Note: You can cause additional libraries to be preloaded |
281 ;;;by writing a site-init.el that loads them. | |
282 ;;;See also "site-load" above. | |
35 | 283 (load "site-init" t) |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
284 (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
|
285 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
286 ;; 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
|
287 ;; 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
|
288 ;; (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
|
289 ;; (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
|
290 ;; (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
|
291 ;; (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
|
292 ;; (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
|
293 ;; (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
|
294 ;; (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
|
295 ;; (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
|
296 ;; (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
|
297 ;; (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
|
298 ;; (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
|
299 ;; (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
|
300 ;; (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
|
301 ;; (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
|
302 ;; (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
|
303 ;; (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
|
304 ;; (cond |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
305 ;; ((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
|
306 ;; "../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
|
307 ;; ((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
|
308 ;; (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
|
309 ;; (t |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
310 ;; (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
|
311 ;; 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
|
312 ;; (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
|
313 ;; (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
|
314 ;; (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
|
315 ;; 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
|
316 ;; 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
|
317 ;; 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
|
318 (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
|
319 (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
|
320 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
321 (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
|
322 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
323 ;; 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
|
324 (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
|
325 (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
|
326 (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
|
327 |
88399
c93a7728939b
Don't load "international/utf-8". Don't call
Kenichi Handa <handa@m17n.org>
parents:
42849
diff
changeset
|
328 (clear-charset-maps) |
35 | 329 (garbage-collect) |
330 | |
648 | 331 ;;; At this point, we're ready to resume undo recording for scratch. |
332 (buffer-enable-undo "*scratch*") | |
333 | |
51699
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
334 (if (null (garbage-collect)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
335 (setq pure-space-overflow t)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
336 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
337 (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
|
338 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
97142 | 339 (progn |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
340 (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
|
341 (message "Dumping under the name emacs") |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
342 (message "Dumping under the name emacs")) |
35 | 343 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
344 (delete-file "emacs") |
35 | 345 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
346 ;; 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
|
347 ;; 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
|
348 ;; under the name `xemacs'), and it's inconsistent with every |
22357 | 349 ;; 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
|
350 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
351 (message "%d pure bytes used" pure-bytes-used) |
35 | 352 ;; 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
|
353 (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
|
354 ;; 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
|
355 ;; building bootstrap-emacs. |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
356 (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
|
357 (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
|
358 (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
|
359 (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
|
360 (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
|
361 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
362 (substring name (match-end 0))))) |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
363 (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
|
364 (add-name-to-file "emacs" name t))) |
35 | 365 (kill-emacs))) |
366 | |
367 ;; Avoid error if user loads some more libraries now. | |
368 (setq purify-flag nil) | |
369 | |
370 ;; For machines with CANNOT_DUMP defined in config.h, | |
371 ;; 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
|
372 ;; So run the startup code now. First, remove `-l loadup' from args. |
35 | 373 |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
374 (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
|
375 (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
|
376 (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
|
377 |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
378 (eval top-level) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
379 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
380 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
381 ;; Local Variables: |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
382 ;; no-byte-compile: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
383 ;; no-update-autoloads: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
384 ;; End: |
52401 | 385 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
386 ;; arch-tag: 121e1dd4-36e1-45ac-860e-239f577a6335 |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
387 ;;; loadup.el ends here |