Mercurial > emacs
annotate lisp/loadup.el @ 66594:d39ae3be63d4
(iswitchb-define-mode-map): Re-enabled the toggle-ignore keybinding
(C-a). The author said it had been disabled much earlier due to a
possible incompatibility, but after many months of usage I have
encountered no problems (and it is a rather useful option, especially
for switching to " *temp*").
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Tue, 01 Nov 2005 07:10:49 +0000 |
parents | 621fdbc28285 |
children | 387b86c82d47 693e794b57bf |
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, |
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64091
diff
changeset
|
4 ;; 2004, 2005 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 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
35 | 14 ;; any later version. |
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 | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64091 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
35 | 25 |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
26 ;;; Commentary: |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
27 |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
28 ;; 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
|
29 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
30 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
31 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
32 ;; 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
|
33 ;; 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
|
34 (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
|
35 (equal (nth 4 command-line-args) "bootstrap") |
ecf2e8c385f8
* loadup.el (top level): Adjust load path if program name is
Ken Raeburn <raeburn@raeburn.org>
parents:
32205
diff
changeset
|
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") |
28916 | 63 (load "env") |
17427 | 64 (load "cus-start") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
65 (load "international/mule") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
66 (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
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. |
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
74 |
23013
ce7367ed1f02
Add informative message about the lists of GC stats.
Richard M. Stallman <rms@gnu.org>
parents:
22965
diff
changeset
|
75 (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
|
76 (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
|
77 (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
|
78 (load "loaddefs.el") ;Don't get confused if someone compiled this by mistake. |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
79 (message "%s" (garbage-collect)) |
47407
32ab444f1795
("simple.el"): Move to after loaddefs.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46509
diff
changeset
|
80 (load "simple") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
81 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
82 (load "help") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
83 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
84 ;; 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
|
85 ;; multilingual text. |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
86 (load "international/mule-cmds") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
87 (load "case-table") |
46509
f55467800a14
Load international/utf-8 before international/characters.
Kim F. Storm <storm@cua.dk>
parents:
45446
diff
changeset
|
88 (load "international/utf-8") |
47706
361a553249c0
Preload international/utf-16. Don't call ucs-unify-8859.
Kenichi Handa <handa@m17n.org>
parents:
47407
diff
changeset
|
89 (load "international/utf-16") |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
90 (load "international/characters") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
91 |
17951
c13285663c82
Always load case-table, latin-1, latin-2, latin-3, latin-4.
Richard M. Stallman <rms@gnu.org>
parents:
17783
diff
changeset
|
92 (let ((set-case-syntax-set-multibyte t)) |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
93 (load "international/latin-1") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
94 (load "international/latin-2") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
95 (load "international/latin-3") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
96 (load "international/latin-4") |
26128 | 97 (load "international/latin-5") |
98 (load "international/latin-8") | |
99 (load "international/latin-9")) | |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
100 ;; Load language-specific files. |
17007 | 101 (load "language/chinese") |
102 (load "language/cyrillic") | |
103 (load "language/indian") | |
49712
5e95f1f9fabc
Load "language/malayalam" and "language/tamil".
Kenichi Handa <handa@m17n.org>
parents:
49333
diff
changeset
|
104 (load "language/devanagari") ; This should be loaded after indian. |
5e95f1f9fabc
Load "language/malayalam" and "language/tamil".
Kenichi Handa <handa@m17n.org>
parents:
49333
diff
changeset
|
105 (load "language/malayalam") ; This should be loaded after indian. |
5e95f1f9fabc
Load "language/malayalam" and "language/tamil".
Kenichi Handa <handa@m17n.org>
parents:
49333
diff
changeset
|
106 (load "language/tamil") ; This should be loaded after indian. |
53016 | 107 (load "language/kannada") ; This should be loaded after indian. |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
108 (load "language/english") |
17007 | 109 (load "language/ethiopic") |
110 (load "language/european") | |
21208
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
111 (load "language/czech") |
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
112 (load "language/slovak") |
21541
f20029a36f55
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21208
diff
changeset
|
113 (load "language/romanian") |
17007 | 114 (load "language/greek") |
115 (load "language/hebrew") | |
116 (load "language/japanese") | |
117 (load "language/korean") | |
17089 | 118 (load "language/lao") |
17007 | 119 (load "language/thai") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
120 (load "language/tibetan") |
17007 | 121 (load "language/vietnamese") |
122 (load "language/misc-lang") | |
42143
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
123 (load "language/utf-8-lang") |
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
124 (load "language/georgian") |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
125 |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
126 (load "international/ucs-tables") |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
127 |
22878
c08122192a60
Call update-coding-systems-internal instead of
Kenichi Handa <handa@m17n.org>
parents:
22358
diff
changeset
|
128 (update-coding-systems-internal) |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
129 |
35 | 130 (load "indent") |
131 (load "window") | |
16174
4bbcbff8c3da
Load frame.elc unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
16162
diff
changeset
|
132 (load "frame") |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26128
diff
changeset
|
133 (load "term/tty-colors") |
45446 | 134 (load "font-core") |
66579
621fdbc28285
* loadup.el: Load emacs-lisp/syntax, font-lock and jit-lock so
Dan Nicolaescu <dann@ics.uci.edu>
parents:
66491
diff
changeset
|
135 (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
|
136 (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
|
137 (load "jit-lock") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
138 |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
139 (load "facemenu") |
11040
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
140 (if (fboundp 'track-mouse) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
141 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
142 (load "mouse") |
34872
c088e2f67eb9
(toplevel): Check for x-toolkit-scroll-bars instead
Gerd Moellmann <gerd@gnu.org>
parents:
34467
diff
changeset
|
143 (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
|
144 (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
|
145 (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
|
146 (load "emacs-lisp/timer") |
32081
4ff954604f6f
(toplevel): Load faces before isearch.
Gerd Moellmann <gerd@gnu.org>
parents:
28916
diff
changeset
|
147 (load "isearch") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
148 |
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
149 (message "%s" (garbage-collect)) |
13375 | 150 (load "menu-bar") |
35 | 151 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. |
152 (load "startup") | |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
153 (load "emacs-lisp/lisp") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
154 (load "textmodes/page") |
35 | 155 (load "register") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
156 (load "textmodes/paragraphs") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
157 (load "emacs-lisp/lisp-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
158 (load "textmodes/text-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
159 (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
|
160 (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
|
161 |
35 | 162 (load "replace") |
163 (if (eq system-type 'vax-vms) | |
164 (progn | |
165 (load "vmsproc"))) | |
166 (load "abbrev") | |
167 (load "buff-menu") | |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
168 |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
169 (if (fboundp 'x-create-frame) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
170 (progn |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
171 (load "image") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
172 (load "international/fontset") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
173 (load "dnd") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
174 (load "mwheel") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
175 (load "tool-bar"))) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
176 (if (featurep 'x) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
177 (load "x-dnd")) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
178 (message "%s" (garbage-collect)) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
179 |
35 | 180 (if (eq system-type 'vax-vms) |
181 (progn | |
182 (load "vms-patch"))) | |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
183 (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
|
184 (progn |
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
185 (load "ls-lisp") |
15086
f3024d637562
[windows-nt]: Load disp-table.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
186 (load "disp-table") ; needed to setup ibm-pc char set, see internal.el |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
187 (load "dos-w32") |
42849
8d86f0f41afa
[windows-nt]: Load w32-vars.
Jason Rumney <jasonr@gnu.org>
parents:
42188
diff
changeset
|
188 (load "w32-vars") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
189 (load "w32-fns"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
190 (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
|
191 (progn |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
192 (load "ls-lisp") |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
193 (load "dos-w32") |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
194 (load "dos-fns") |
22071
33fd1716466a
Load dos-vars along with dos-fns.
Richard M. Stallman <rms@gnu.org>
parents:
21541
diff
changeset
|
195 (load "dos-vars") |
35952 | 196 (load "international/ccl") ; codepage.el uses CCL en/decoder |
24709
6cfda8d96aea
For ms-dos systems, load ccl and codepage.
Eli Zaretskii <eliz@gnu.org>
parents:
24574
diff
changeset
|
197 (load "international/codepage") ; internal.el uses cpNNN coding systems |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
198 (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
|
199 (if (eq system-type 'macos) |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
200 (progn |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
201 (load "ls-lisp"))) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
202 (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
|
203 (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
|
204 (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
|
205 (message "%s" (garbage-collect)) |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
206 |
927 | 207 (load "vc-hooks") |
62109
f6b6dfcfcc3b
Load jka-cmpr-hook instead of jka-comp-hook.
Eli Zaretskii <eliz@gnu.org>
parents:
61947
diff
changeset
|
208 (load "jka-cmpr-hook") |
13134
a880e9199b57
Added (load "ediff-hook") after loading vc-hook.
Michael Kifer <kifer@cs.stonybrook.edu>
parents:
12426
diff
changeset
|
209 (load "ediff-hook") |
61567
7e8e06678917
Load tooltip if x-show-tip is fboundp.
Luc Teirlinck <teirllm@auburn.edu>
parents:
59126
diff
changeset
|
210 (if (fboundp 'x-show-tip) (load "tooltip")) |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
211 |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
212 (message "%s" (garbage-collect)) |
35 | 213 |
214 ;If you want additional libraries to be preloaded and their | |
215 ;doc strings kept in the DOC file rather than in core, | |
216 ;you may load them with a "site-load.el" file. | |
217 ;But you must also cause them to be scanned when the DOC file | |
445 | 218 ;is generated. For VMS, you must edit ../vms/makedoc.com. |
13316 | 219 ;For other systems, you must edit ../src/Makefile.in. |
35 | 220 (if (load "site-load" t) |
221 (garbage-collect)) | |
222 | |
12299
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
223 (if (fboundp 'x-popup-menu) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
224 (precompute-menubar-bindings)) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
225 ;; Turn on recording of which commands get rebound, |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
226 ;; 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
|
227 (setq define-key-rebound-commands nil) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
228 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
229 ;; 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
|
230 ;; 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
|
231 (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
|
232 (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
|
233 (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
|
234 (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
|
235 (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
|
236 (versions (mapcar (function (lambda (name) |
13366 | 237 (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
|
238 files))) |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
239 ;; `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
|
240 (defconst emacs-version |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
241 (format "%s.%d" |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
242 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
|
243 |
35 | 244 ;; Note: all compiled Lisp files loaded above this point |
245 ;; must be among the ones parsed by make-docfile | |
246 ;; to construct DOC. Any that are not processed | |
247 ;; for DOC will not have doc strings in the dumped Emacs. | |
248 | |
249 (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
|
250 (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
|
251 (equal (nth 4 command-line-args) "dump")) |
35 | 252 (let ((name emacs-version)) |
253 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
254 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
255 "-" | |
256 (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
|
257 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 258 (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
|
259 (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
|
260 (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
|
261 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
262 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
263 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 264 (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
|
265 (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
|
266 (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
|
267 (error nil))) |
35 | 268 (message "Finding pointers to doc strings...done") |
269 | |
22357 | 270 ;;;Note: You can cause additional libraries to be preloaded |
271 ;;;by writing a site-init.el that loads them. | |
272 ;;;See also "site-load" above. | |
35 | 273 (load "site-init" t) |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
274 (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
|
275 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
276 ;; 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
|
277 ;; 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
|
278 ;; (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
|
279 ;; (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
|
280 ;; (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
|
281 ;; (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
|
282 ;; (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
|
283 ;; (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
|
284 ;; (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
|
285 ;; (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
|
286 ;; (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
|
287 ;; (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
|
288 ;; (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
|
289 ;; (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
|
290 ;; (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
|
291 ;; (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
|
292 ;; (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
|
293 ;; (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
|
294 ;; (cond |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
295 ;; ((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
|
296 ;; "../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
|
297 ;; ((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
|
298 ;; (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
|
299 ;; (t |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
300 ;; (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
|
301 ;; 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
|
302 ;; (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
|
303 ;; (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
|
304 ;; (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
|
305 ;; 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
|
306 ;; 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
|
307 ;; 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
|
308 (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
|
309 (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
|
310 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
311 (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
|
312 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
313 ;; 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
|
314 (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
|
315 (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
|
316 (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
|
317 |
35 | 318 (garbage-collect) |
319 | |
648 | 320 ;;; At this point, we're ready to resume undo recording for scratch. |
321 (buffer-enable-undo "*scratch*") | |
322 | |
51699
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
323 (if (null (garbage-collect)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
324 (setq pure-space-overflow t)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
325 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
326 (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
|
327 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
35 | 328 (if (eq system-type 'vax-vms) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
329 (progn |
35 | 330 (message "Dumping data as file temacs.dump") |
331 (dump-emacs "temacs.dump" "temacs") | |
332 (kill-emacs)) | |
333 (let ((name (concat "emacs-" emacs-version))) | |
334 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
335 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
336 "-" | |
337 (substring name (match-end 0))))) | |
63343
23907690bff4
Don't say we are dumping under 2 names on windows-nt and cygwin.
Eli Zaretskii <eliz@gnu.org>
parents:
62109
diff
changeset
|
338 (if (memq system-type '(ms-dos windows-nt cygwin)) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
339 (message "Dumping under the name emacs") |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
340 (message "Dumping under names emacs and %s" name))) |
35 | 341 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
342 (delete-file "emacs") |
35 | 343 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
344 ;; 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
|
345 ;; 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
|
346 ;; under the name `xemacs'), and it's inconsistent with every |
22357 | 347 ;; 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
|
348 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
349 (message "%d pure bytes used" pure-bytes-used) |
35 | 350 ;; Recompute NAME now, so that it isn't set when we dump. |
54821
3ba372971558
Add cygwin to system-type list, for unexec() support.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53016
diff
changeset
|
351 (if (not (memq system-type '(ms-dos windows-nt cygwin))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
352 (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
|
353 (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
|
354 (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
|
355 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
356 (substring name (match-end 0))))) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
357 (add-name-to-file "emacs" name t))) |
35 | 358 (kill-emacs))) |
359 | |
360 ;; Avoid error if user loads some more libraries now. | |
361 (setq purify-flag nil) | |
362 | |
363 ;; For machines with CANNOT_DUMP defined in config.h, | |
364 ;; 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
|
365 ;; So run the startup code now. First, remove `-l loadup' from args. |
35 | 366 |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
367 (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
|
368 (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
|
369 (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
|
370 |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
371 (eval top-level) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
372 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
373 |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
374 ;;; Local Variables: |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
375 ;;; no-byte-compile: t |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
376 ;;; no-update-autoloads: t |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
377 ;;; End: |
52401 | 378 |
379 ;;; arch-tag: 121e1dd4-36e1-45ac-860e-239f577a6335 | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
380 ;;; loadup.el ends here |