Mercurial > emacs
annotate lisp/loadup.el @ 98007:883843ca3292
* verilog-mode.el (verilog-library-extensions): Enable .sv
filename extensions to call verilog-mode.
(verilog-auto, verilog-auto-inst, verilog-faq)
(verilog-submit-bug-report): Update author support URLs.
(verilog-delete-auto, verilog-auto-inout-module)
(verilog-auto-inout-comp, verilog-auto): Add AUTOINOUTCOMP for
creating complemented testbench modules. Suggested by Yishay
Belkind.
(verilog-auto-inst-port, verilog-simplify-range-expression): When
verilog-auto-inst-param-value is set, don't require a
AUTO_TEMPLATE to expand parameter substitutions. Suggested by
Yishay Belkind.
(verilog-auto-inst-param-value): Add safe variable.
(verilog-re-search-forward, verilog-re-search-backward): Fix
returning wrong search results on Emacs 22.1.
(verilog-modi-cache-results, verilog-auto): Fix warning message
about "toggling font-lock-mode."
(verilog-auto): Fix loosing font-lock on errors.
(verilog-auto-inst-param-value, verilog-mode-version)
(verilog-mode-version-date, verilog-read-inst-param-value)
(verilog-auto-inst, verilog-auto-inst-param)
(verilog-auto-inst-port, verilog-simplify-range-expression): Allow
parameters to be replaced with their values, on the expansion of
an AUTOINST with Verilog 2001 style parameter settings. Suggested
by David Rogoff.
* verilog-mode.el (verilog-beg-block-re-ordered, verilog-calc-1):
Better support for the property statement. Sometimes this keyword
introduces a statement which requires an endproperty keyword, and
sometimes it doesn't, dependening on the work before the property
word. If property is prefixed with assert, assume or cover
keyword, then the statement is ended with a ';' Otherwise,
property is like task or specify, and is followed by some number
of statements, which are ended with an endproperty keyword.
(electric-verilog-tab): Support Emacs 22.2 style handling of tab
in a highlighted region: indent each line in region according to
mode. Supply this so it works in XEmacs and older Emacs.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 05 Sep 2008 22:13:55 +0000 |
parents | 5c57ca53d968 |
children | 3fdcdddf14a8 |
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") | |
35952 | 205 (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
|
206 (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
|
207 (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
|
208 (if (eq system-type 'macos) |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
209 (progn |
95887061f1e4
* term/mac-win.el: Remove load for ls-lisp.
Andrew Choi <akochoi@shaw.ca>
parents:
34351
diff
changeset
|
210 (load "ls-lisp"))) |
96921 | 211 (if (featurep 'ns) |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
212 (progn |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
213 (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
|
214 (load "term/ns-win"))) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
215 (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
|
216 (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
|
217 (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
|
218 (message "%s" (garbage-collect)) |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
219 |
927 | 220 (load "vc-hooks") |
13134
a880e9199b57
Added (load "ediff-hook") after loading vc-hook.
Michael Kifer <kifer@cs.stonybrook.edu>
parents:
12426
diff
changeset
|
221 (load "ediff-hook") |
61567
7e8e06678917
Load tooltip if x-show-tip is fboundp.
Luc Teirlinck <teirllm@auburn.edu>
parents:
59126
diff
changeset
|
222 (if (fboundp 'x-show-tip) (load "tooltip")) |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
223 |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
224 (message "%s" (garbage-collect)) |
35 | 225 |
226 ;If you want additional libraries to be preloaded and their | |
227 ;doc strings kept in the DOC file rather than in core, | |
228 ;you may load them with a "site-load.el" file. | |
229 ;But you must also cause them to be scanned when the DOC file | |
97142 | 230 ;is generated. |
13316 | 231 ;For other systems, you must edit ../src/Makefile.in. |
35 | 232 (if (load "site-load" t) |
233 (garbage-collect)) | |
234 | |
12299
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
235 (if (fboundp 'x-popup-menu) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
236 (precompute-menubar-bindings)) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
237 ;; Turn on recording of which commands get rebound, |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
238 ;; 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
|
239 (setq define-key-rebound-commands nil) |
d4e2494f12cb
Call precompute-menubar-bindings.
Richard M. Stallman <rms@gnu.org>
parents:
11398
diff
changeset
|
240 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
241 ;; 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
|
242 ;; 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
|
243 (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
|
244 (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
|
245 (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
|
246 (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
|
247 (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
|
248 (versions (mapcar (function (lambda (name) |
13366 | 249 (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
|
250 files))) |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
251 ;; `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
|
252 (defconst emacs-version |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
253 (format "%s.%d" |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
254 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
|
255 |
35 | 256 ;; Note: all compiled Lisp files loaded above this point |
257 ;; must be among the ones parsed by make-docfile | |
258 ;; to construct DOC. Any that are not processed | |
259 ;; for DOC will not have doc strings in the dumped Emacs. | |
260 | |
261 (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
|
262 (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
|
263 (equal (nth 4 command-line-args) "dump")) |
35 | 264 (let ((name emacs-version)) |
265 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
266 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
267 "-" | |
268 (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
|
269 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 270 (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
|
271 (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
|
272 (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
|
273 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
274 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
275 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 276 (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
|
277 (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
|
278 (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
|
279 (error nil))) |
35 | 280 (message "Finding pointers to doc strings...done") |
281 | |
22357 | 282 ;;;Note: You can cause additional libraries to be preloaded |
283 ;;;by writing a site-init.el that loads them. | |
284 ;;;See also "site-load" above. | |
35 | 285 (load "site-init" t) |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
286 (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
|
287 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
288 ;; 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
|
289 ;; 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
|
290 ;; (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
|
291 ;; (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
|
292 ;; (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
|
293 ;; (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
|
294 ;; (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
|
295 ;; (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
|
296 ;; (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
|
297 ;; (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
|
298 ;; (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
|
299 ;; (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
|
300 ;; (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
|
301 ;; (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
|
302 ;; (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
|
303 ;; (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
|
304 ;; (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
|
305 ;; (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
|
306 ;; (cond |
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 '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
|
308 ;; "../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
|
309 ;; ((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
|
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 ;; (t |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
312 ;; (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
|
313 ;; 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
|
314 ;; (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
|
315 ;; (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
|
316 ;; (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
|
317 ;; 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
|
318 ;; 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
|
319 ;; 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
|
320 (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
|
321 (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
|
322 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
323 (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
|
324 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
325 ;; 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
|
326 (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
|
327 (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
|
328 (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
|
329 |
88399
c93a7728939b
Don't load "international/utf-8". Don't call
Kenichi Handa <handa@m17n.org>
parents:
42849
diff
changeset
|
330 (clear-charset-maps) |
35 | 331 (garbage-collect) |
332 | |
648 | 333 ;;; At this point, we're ready to resume undo recording for scratch. |
334 (buffer-enable-undo "*scratch*") | |
335 | |
51699
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
336 (if (null (garbage-collect)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
337 (setq pure-space-overflow t)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
338 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
339 (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
|
340 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
97142 | 341 (progn |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
342 (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
|
343 (message "Dumping under the name emacs") |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
344 (message "Dumping under the name emacs")) |
35 | 345 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
346 (delete-file "emacs") |
35 | 347 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
348 ;; 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
|
349 ;; 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
|
350 ;; under the name `xemacs'), and it's inconsistent with every |
22357 | 351 ;; 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
|
352 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
353 (message "%d pure bytes used" pure-bytes-used) |
35 | 354 ;; 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
|
355 (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
|
356 ;; 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
|
357 ;; building bootstrap-emacs. |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
358 (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
|
359 (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
|
360 (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
|
361 (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
|
362 (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
|
363 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
364 (substring name (match-end 0))))) |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
365 (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
|
366 (add-name-to-file "emacs" name t))) |
35 | 367 (kill-emacs))) |
368 | |
369 ;; Avoid error if user loads some more libraries now. | |
370 (setq purify-flag nil) | |
371 | |
372 ;; For machines with CANNOT_DUMP defined in config.h, | |
373 ;; 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
|
374 ;; So run the startup code now. First, remove `-l loadup' from args. |
35 | 375 |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
376 (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
|
377 (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
|
378 (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
|
379 |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
380 (eval top-level) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
381 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
382 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
383 ;; Local Variables: |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
384 ;; no-byte-compile: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
385 ;; no-update-autoloads: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
386 ;; End: |
52401 | 387 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
388 ;; arch-tag: 121e1dd4-36e1-45ac-860e-239f577a6335 |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
389 ;;; loadup.el ends here |