Mercurial > emacs
annotate lisp/loadup.el @ 20279:69a6030e443a
(kill-region): Detect read-only text
by getting an error trying to delete it.
Handle the cases where we can, and can't, get the killed text
from the undo list with much the same code.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 19 Nov 1997 21:36:56 +0000 |
parents | 0593b81567ce |
children | 711aeb8dff36 |
rev | line source |
---|---|
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
1 ;;; loadup.el --- load up standardly loaded Lisp files for Emacs. |
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
2 |
7298 | 3 ;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
5 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: internal |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
7 |
35 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
35 | 13 ;; any later version. |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
35 | 24 |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
25 ;;; Commentary: |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
26 |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
27 ;; This is loaded into a bare Emacs to make a dumpable one. |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
28 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
29 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
30 |
1692
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
31 (message "Using load-path %s" load-path) |
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
32 |
648 | 33 ;;; We don't want to have any undo records in the dumped Emacs. |
34 (buffer-disable-undo "*scratch*") | |
35 | 35 |
36 (load "subr") | |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
37 |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
38 ;; 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
|
39 (load "version.el") |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
40 |
767
02bfc9709961
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
758
diff
changeset
|
41 (load "byte-run") |
408
66f3891c43fd
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
393
diff
changeset
|
42 (load "map-ynp") |
17397
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
43 (load "widget") |
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
44 (load "custom") |
17427 | 45 (load "cus-start") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
46 (load "international/mule") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
47 (load "international/mule-conf.el") ;Don't get confused if someone compiled this by mistake. |
17783
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
48 (load "bindings") |
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
49 (setq load-source-file-function 'load-with-code-conversion) |
35 | 50 (load "simple") |
51 (load "help") | |
52 (load "files") | |
11050 | 53 (load "format") |
17007 | 54 ;; Any Emacs Lisp source file (*.el) loaded here after can contain |
55 ;; multilingual text. | |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
56 (load "international/mule-cmds") |
19957
0593b81567ce
Load case-table before loading
Richard M. Stallman <rms@gnu.org>
parents:
19356
diff
changeset
|
57 (load "case-table") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
58 (load "international/characters") |
17951
c13285663c82
Always load case-table, latin-1, latin-2, latin-3, latin-4.
Richard M. Stallman <rms@gnu.org>
parents:
17783
diff
changeset
|
59 (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
|
60 (load "international/latin-1") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
61 (load "international/latin-2") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
62 (load "international/latin-3") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
63 (load "international/latin-4") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
64 (load "international/latin-5")) |
17007 | 65 ;; Load langauge specific files. |
66 (load "language/chinese") | |
67 (load "language/cyrillic") | |
68 (load "language/indian") | |
17990
63cfa8ed3bf9
Add comment for the code loading
Kenichi Handa <handa@m17n.org>
parents:
17951
diff
changeset
|
69 (load "language/devanagari") ; This should be loaded after indian. |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
70 (load "language/english") |
17007 | 71 (load "language/ethiopic") |
72 (load "language/european") | |
73 (load "language/greek") | |
74 (load "language/hebrew") | |
75 (load "language/japanese") | |
76 (load "language/korean") | |
17089 | 77 (load "language/lao") |
17007 | 78 (load "language/thai") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
79 (load "language/tibetan") |
17007 | 80 (load "language/vietnamese") |
81 (load "language/misc-lang") | |
35 | 82 (load "indent") |
12426
abf6a9c6e139
Put isearch before menu-bar.
Richard M. Stallman <rms@gnu.org>
parents:
12299
diff
changeset
|
83 (load "isearch") |
35 | 84 (load "window") |
16174
4bbcbff8c3da
Load frame.elc unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
16162
diff
changeset
|
85 (load "frame") |
18075 | 86 (load "faces") |
11040
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
87 (if (fboundp 'frame-face-alist) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
88 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
89 (load "facemenu"))) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
90 (if (fboundp 'track-mouse) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
91 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
92 (load "mouse") |
2806
fc90a9d80b5f
Preload mouse, scroll-bar and select if have multi-frames.
Richard M. Stallman <rms@gnu.org>
parents:
1703
diff
changeset
|
93 (load "scroll-bar") |
fc90a9d80b5f
Preload mouse, scroll-bar and select if have multi-frames.
Richard M. Stallman <rms@gnu.org>
parents:
1703
diff
changeset
|
94 (load "select"))) |
13375 | 95 (load "menu-bar") |
35 | 96 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. |
97 (load "startup") | |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
98 (load "emacs-lisp/lisp") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
99 (load "textmodes/page") |
35 | 100 (load "register") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
101 (load "textmodes/paragraphs") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
102 (load "emacs-lisp/lisp-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
103 (load "textmodes/text-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
104 (load "textmodes/fill") |
35 | 105 (garbage-collect) |
106 (load "replace") | |
107 (if (eq system-type 'vax-vms) | |
108 (progn | |
109 (load "vmsproc"))) | |
110 (load "abbrev") | |
111 (load "buff-menu") | |
112 (if (eq system-type 'vax-vms) | |
113 (progn | |
114 (load "vms-patch"))) | |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
115 (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
|
116 (progn |
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
117 (load "ls-lisp") |
15086
f3024d637562
[windows-nt]: Load disp-table.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
118 (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
|
119 (load "dos-w32") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
120 (load "w32-fns"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
121 (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
|
122 (progn |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
123 (load "ls-lisp") |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
124 (load "dos-w32") |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
125 (load "dos-fns") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
126 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el |
35 | 127 (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
|
128 (progn ; floating pt. functions if we have float support. |
35 | 129 (load "float-sup"))) |
19355
269fc135665c
(loaddefs.el): Load that much later.
Richard M. Stallman <rms@gnu.org>
parents:
18873
diff
changeset
|
130 (garbage-collect) |
269fc135665c
(loaddefs.el): Load that much later.
Richard M. Stallman <rms@gnu.org>
parents:
18873
diff
changeset
|
131 (load "loaddefs.el") ;Don't get confused if someone compiled this by mistake. |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
132 |
927 | 133 (garbage-collect) |
134 (load "vc-hooks") | |
13134
a880e9199b57
Added (load "ediff-hook") after loading vc-hook.
Michael Kifer <kifer@cs.stonybrook.edu>
parents:
12426
diff
changeset
|
135 (load "ediff-hook") |
35 | 136 |
137 ;If you want additional libraries to be preloaded and their | |
138 ;doc strings kept in the DOC file rather than in core, | |
139 ;you may load them with a "site-load.el" file. | |
140 ;But you must also cause them to be scanned when the DOC file | |
445 | 141 ;is generated. For VMS, you must edit ../vms/makedoc.com. |
13316 | 142 ;For other systems, you must edit ../src/Makefile.in. |
35 | 143 (if (load "site-load" t) |
144 (garbage-collect)) | |
145 | |
12299
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
146 (if (fboundp 'x-popup-menu) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
147 (precompute-menubar-bindings)) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
148 ;; Turn on recording of which commands get rebound, |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
149 ;; 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
|
150 (setq define-key-rebound-commands nil) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
151 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
152 ;; 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
|
153 ;; 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
|
154 (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
|
155 (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
|
156 (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
|
157 (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
|
158 (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
|
159 (versions (mapcar (function (lambda (name) |
13366 | 160 (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
|
161 files))) |
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
162 (setq emacs-version (format "%s.%d" |
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
163 emacs-version |
5509
5d907d4216ce
If there are no subversions yet, use 1.
Richard M. Stallman <rms@gnu.org>
parents:
5505
diff
changeset
|
164 (if versions |
5d907d4216ce
If there are no subversions yet, use 1.
Richard M. Stallman <rms@gnu.org>
parents:
5505
diff
changeset
|
165 (1+ (apply 'max versions)) |
5d907d4216ce
If there are no subversions yet, use 1.
Richard M. Stallman <rms@gnu.org>
parents:
5505
diff
changeset
|
166 1))))) |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
167 |
35 | 168 ;; Note: all compiled Lisp files loaded above this point |
169 ;; must be among the ones parsed by make-docfile | |
170 ;; to construct DOC. Any that are not processed | |
171 ;; for DOC will not have doc strings in the dumped Emacs. | |
172 | |
173 (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
|
174 (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
|
175 (equal (nth 4 command-line-args) "dump")) |
35 | 176 (let ((name emacs-version)) |
177 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
178 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
179 "-" | |
180 (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
|
181 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 182 (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
|
183 (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
|
184 (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
|
185 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
186 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
187 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 188 (Snarf-documentation (file-name-nondirectory name))) |
1113 | 189 (Snarf-documentation "DOC")) |
35 | 190 (message "Finding pointers to doc strings...done") |
191 | |
192 ;Note: You can cause additional libraries to be preloaded | |
193 ;by writing a site-init.el that loads them. | |
194 ;See also "site-load" above. | |
195 (load "site-init" t) | |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
196 (setq current-load-list nil) |
35 | 197 (garbage-collect) |
198 | |
648 | 199 ;;; At this point, we're ready to resume undo recording for scratch. |
200 (buffer-enable-undo "*scratch*") | |
201 | |
35 | 202 (if (or (equal (nth 3 command-line-args) "dump") |
203 (equal (nth 4 command-line-args) "dump")) | |
204 (if (eq system-type 'vax-vms) | |
205 (progn | |
206 (message "Dumping data as file temacs.dump") | |
207 (dump-emacs "temacs.dump" "temacs") | |
208 (kill-emacs)) | |
209 (let ((name (concat "emacs-" emacs-version))) | |
210 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
211 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
212 "-" | |
213 (substring name (match-end 0))))) | |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
214 (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
|
215 (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
|
216 (message "Dumping under names emacs and %s" name))) |
35 | 217 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
218 (delete-file "emacs") |
35 | 219 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
220 ;; 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
|
221 ;; 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
|
222 ;; under the name `xemacs'), and it's inconsistent with every |
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
223 ;; other GNU product's build process. |
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
224 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
225 (message "%d pure bytes used" pure-bytes-used) |
35 | 226 ;; Recompute NAME now, so that it isn't set when we dump. |
11398 | 227 (if (not (memq system-type '(ms-dos windows-nt))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
228 (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
|
229 (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
|
230 (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
|
231 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
232 (substring name (match-end 0))))) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
233 (add-name-to-file "emacs" name t))) |
35 | 234 (kill-emacs))) |
235 | |
236 ;; Avoid error if user loads some more libraries now. | |
237 (setq purify-flag nil) | |
238 | |
239 ;; For machines with CANNOT_DUMP defined in config.h, | |
240 ;; this file must be loaded each time Emacs is run. | |
241 ;; So run the startup code now. | |
242 | |
9515
64a4d29fb831
(Evaluating top-level): Don't load loadup.el again.
Richard M. Stallman <rms@gnu.org>
parents:
9512
diff
changeset
|
243 (or (equal (nth 3 command-line-args) "dump") |
64a4d29fb831
(Evaluating top-level): Don't load loadup.el again.
Richard M. Stallman <rms@gnu.org>
parents:
9512
diff
changeset
|
244 (equal (nth 4 command-line-args) "dump") |
64a4d29fb831
(Evaluating top-level): Don't load loadup.el again.
Richard M. Stallman <rms@gnu.org>
parents:
9512
diff
changeset
|
245 (progn |
64a4d29fb831
(Evaluating top-level): Don't load loadup.el again.
Richard M. Stallman <rms@gnu.org>
parents:
9512
diff
changeset
|
246 ;; Avoid loading loadup.el a second time! |
64a4d29fb831
(Evaluating top-level): Don't load loadup.el again.
Richard M. Stallman <rms@gnu.org>
parents:
9512
diff
changeset
|
247 (setq command-line-args (cdr (cdr command-line-args))) |
64a4d29fb831
(Evaluating top-level): Don't load loadup.el again.
Richard M. Stallman <rms@gnu.org>
parents:
9512
diff
changeset
|
248 (eval top-level))) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
249 |
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
250 ;;; loadup.el ends here |