Mercurial > emacs
annotate lisp/loadup.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 280c8ae2476d |
children | a5d92e87313c |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
35952
diff
changeset
|
1 ;;; loadup.el --- load up standardly loaded Lisp files for Emacs |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
2 |
104938 | 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
6 ;; Maintainer: FSF |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
7 ;; Keywords: internal |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
108972
diff
changeset
|
8 ;; Package: emacs |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
9 |
35 | 10 ;; This file is part of GNU Emacs. |
11 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94512
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
35 | 13 ;; 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
|
14 ;; 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
|
15 ;; (at your option) any later version. |
35 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; 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
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
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 |
105215 | 29 ;; If you add/remove Lisp files to be loaded here, consider the |
30 ;; following issues: | |
31 | |
32 ;; i) Any file loaded on all platforms should appear in $lisp | |
33 ;; and $shortlisp in src/Makefile.in. Use the .el or .elc version as | |
34 ;; appropriate. | |
35 | |
36 ;; ii) Any file that is only loaded on some platforms should appear | |
37 ;; in the version of $lisp in the generated Makefile on that platform. | |
38 ;; At the present time, this is achieved by use of #ifdefs. | |
39 ;; It should also appear in $SOME_MACHINE_LISP on all platforms. | |
40 | |
41 ;; The above steps ensure both that the Lisp files are compiled (if | |
42 ;; necessary) before the emacs executable is dumped, and that they are | |
43 ;; passed to make-docfile. (Any that are not processed for DOC will | |
44 ;; not have doc strings in the dumped Emacs.) Because of this: | |
45 | |
46 ;; iii) If the file is loaded uncompiled, it should (where possible) | |
47 ;; obey the doc-string conventions expected by make-docfile. | |
48 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
49 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
50 |
105215 | 51 ;; Add subdirectories to the load-path for files that might get |
52 ;; autoloaded when bootstrapping. | |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
53 (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
|
54 (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
|
55 (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
|
56 (equal (nth 4 command-line-args) "unidata-gen-files") |
105215 | 57 ;; In case CANNOT_DUMP. |
108726 | 58 (string-match "src/bootstrap-emacs" (nth 0 command-line-args))) |
49333
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
59 (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
|
60 ;; 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
|
61 (setq purify-flag nil) |
49333
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
62 (setq load-path (list dir |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
63 (expand-file-name "emacs-lisp" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
64 (expand-file-name "language" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
65 (expand-file-name "international" dir) |
bdea33173bb5
(load-path): Rename `path' local var.
Richard M. Stallman <rms@gnu.org>
parents:
49257
diff
changeset
|
66 (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
|
67 |
107895
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
68 (if (eq t purify-flag) |
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
69 ;; Hash consing saved around 11% of pure space in my tests. |
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
70 (setq purify-flag (make-hash-table :test 'equal))) |
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
71 |
1692
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
72 (message "Using load-path %s" load-path) |
9befcd596286
Display load-path at start.
Richard M. Stallman <rms@gnu.org>
parents:
1113
diff
changeset
|
73 |
99983
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
74 (if (or (member (nth 3 command-line-args) '("dump" "bootstrap")) |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
75 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
76 ;; To reduce the size of dumped Emacs, we avoid making huge |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
77 ;; char-tables. |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
78 (setq inhibit-load-charset-map t)) |
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
79 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
80 ;; 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
|
81 (set-buffer "*scratch*") |
7c8ecf412b73
Don't use buffer-disable-undo; do it directly.
Richard M. Stallman <rms@gnu.org>
parents:
54821
diff
changeset
|
82 (setq buffer-undo-list t) |
35 | 83 |
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
|
84 (load "emacs-lisp/byte-run") |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
85 (load "emacs-lisp/backquote") |
35 | 86 (load "subr") |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
87 |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
88 ;; Do it after subr, since both after-load-functions and add-hook are |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
89 ;; implemented in subr.el. |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
90 (add-hook 'after-load-functions '(lambda (f) (garbage-collect))) |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
91 |
10806
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
92 ;; 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
|
93 (load "version.el") |
9e59d5bdaab8
Load version.el early on.
Richard M. Stallman <rms@gnu.org>
parents:
9906
diff
changeset
|
94 |
17397
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
95 (load "widget") |
e1bc0ba41a50
Load widget and custom packages.
Richard M. Stallman <rms@gnu.org>
parents:
17292
diff
changeset
|
96 (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
|
97 (load "emacs-lisp/map-ynp") |
17427 | 98 (load "cus-start") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
99 (load "international/mule") |
105949
981ea078cf76
* Makefile.in (ELCFILES): Add international/mule-conf.elc.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105215
diff
changeset
|
100 (load "international/mule-conf") |
83465
3ec9cf0f2305
Fix bootstrapping problem. (Reported by "mace".)
Karoly Lorentey <lorentey@elte.hu>
parents:
83416
diff
changeset
|
101 (load "env") |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
102 (load "format") |
17783
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
103 (load "bindings") |
1a6cc382caff
Move bindings.el after mule-conf.el.
Richard M. Stallman <rms@gnu.org>
parents:
17427
diff
changeset
|
104 (setq load-source-file-function 'load-with-code-conversion) |
35 | 105 (load "files") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
106 |
44894
b40fd90ad243
Explicitly load cus-face and timer.
Richard M. Stallman <rms@gnu.org>
parents:
44595
diff
changeset
|
107 (load "cus-face") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
108 (load "faces") ; after here, `defface' may be used. |
94040
59143f6957b1
("minibuffer"): Move after "faces".
Eli Zaretskii <eliz@gnu.org>
parents:
94001
diff
changeset
|
109 (load "minibuffer") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
110 |
79367
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
111 (load "button") |
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
112 (load "startup") |
e11b8c88390e
Add `button'. Move up `startup'.
Juri Linkov <juri@jurta.org>
parents:
78236
diff
changeset
|
113 |
94001
96f9ff09bbb0
* Makefile.in (bootstrap-prepare): Don't copy ldefs-boot over loaddefs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93888
diff
changeset
|
114 (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
|
115 ;; 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
|
116 (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
|
117 ;; 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
|
118 (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
|
119 |
94062
9fefa536be58
* minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94040
diff
changeset
|
120 (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
|
121 (load "simple") |
22258
30576834668c
(loaddefs.el): Load it earlier, and GC before and after
Richard M. Stallman <rms@gnu.org>
parents:
22071
diff
changeset
|
122 |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
123 (load "help") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
124 |
70886
90aed8c16a53
("jka-cmpr-hook"): Load it before it is needed.
Luc Teirlinck <teirllm@auburn.edu>
parents:
69051
diff
changeset
|
125 (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
|
126 (load "epa-hook") |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
127 ;; 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
|
128 ;; multilingual text. |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
129 (load "international/mule-cmds") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
130 (load "case-table") |
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
131 (load "international/characters") |
89305 | 132 (load "composite") |
107186 | 133 ;; This file doesn't exist when building a development version of Emacs |
134 ;; from the repository. It is generated just after temacs is built. | |
90164
4a8b8c6bfa9b
Load international/charprop.el with NOERROR t.
Kenichi Handa <handa@m17n.org>
parents:
90159
diff
changeset
|
135 (load "international/charprop.el" t) |
32205
dfa83e0eb90e
(toplevel): Load `loaddefs' before `help' because the
Gerd Moellmann <gerd@gnu.org>
parents:
32081
diff
changeset
|
136 |
22965
5d866870fcb1
Load byte-run and format a little earlier.
Richard M. Stallman <rms@gnu.org>
parents:
22878
diff
changeset
|
137 ;; Load language-specific files. |
17007 | 138 (load "language/chinese") |
139 (load "language/cyrillic") | |
140 (load "language/indian") | |
92070
7c76fd775350
Don't load language/devanagari, language/kannanda,
Kenichi Handa <handa@m17n.org>
parents:
91383
diff
changeset
|
141 (load "language/sinhala") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
142 (load "language/english") |
17007 | 143 (load "language/ethiopic") |
144 (load "language/european") | |
21208
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
145 (load "language/czech") |
108e8bd3c936
Load language/czech and language/slovak.
Richard M. Stallman <rms@gnu.org>
parents:
20726
diff
changeset
|
146 (load "language/slovak") |
21541
f20029a36f55
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21208
diff
changeset
|
147 (load "language/romanian") |
17007 | 148 (load "language/greek") |
149 (load "language/hebrew") | |
150 (load "language/japanese") | |
151 (load "language/korean") | |
17089 | 152 (load "language/lao") |
90940 | 153 (load "language/tai-viet") |
17007 | 154 (load "language/thai") |
17292
a84bd5962283
Load language/english and language/tibetan.
Kenichi Handa <handa@m17n.org>
parents:
17089
diff
changeset
|
155 (load "language/tibetan") |
17007 | 156 (load "language/vietnamese") |
157 (load "language/misc-lang") | |
42143
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
158 (load "language/utf-8-lang") |
009b1f3c3049
Add language/utf-8-lang, language/georgian.
Dave Love <fx@gnu.org>
parents:
39729
diff
changeset
|
159 (load "language/georgian") |
91313
bc228f9f325d
Load "language/khmer" and "language/myanmar".
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
160 (load "language/khmer") |
91383
b15ca364bcf8
Load language/burmese instead of language/mynamar.
Andreas Schwab <schwab@suse.de>
parents:
91361
diff
changeset
|
161 (load "language/burmese") |
91361 | 162 (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
|
163 |
35 | 164 (load "indent") |
165 (load "window") | |
16174
4bbcbff8c3da
Load frame.elc unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
16162
diff
changeset
|
166 (load "frame") |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
26128
diff
changeset
|
167 (load "term/tty-colors") |
45446 | 168 (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
|
169 ;; 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
|
170 ;; 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
|
171 (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
|
172 (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
|
173 (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
|
174 (load "jit-lock") |
39650
85be22a1994b
("faces"): Move load before loading "loaddefs.el".
Miles Bader <miles@gnu.org>
parents:
38412
diff
changeset
|
175 |
11040
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
176 (if (fboundp 'track-mouse) |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
177 (progn |
2ea19d4d0b4b
Use appropriate `fboundp' tests to decide what to load.
Karl Heuer <kwzh@gnu.org>
parents:
10806
diff
changeset
|
178 (load "mouse") |
34872
c088e2f67eb9
(toplevel): Check for x-toolkit-scroll-bars instead
Gerd Moellmann <gerd@gnu.org>
parents:
34467
diff
changeset
|
179 (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
|
180 (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
|
181 (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
|
182 (load "emacs-lisp/timer") |
32081
4ff954604f6f
(toplevel): Load faces before isearch.
Gerd Moellmann <gerd@gnu.org>
parents:
28916
diff
changeset
|
183 (load "isearch") |
66906 | 184 (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
|
185 |
13375 | 186 (load "menu-bar") |
35 | 187 (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
|
188 (load "emacs-lisp/lisp") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
189 (load "textmodes/page") |
35 | 190 (load "register") |
18595
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
191 (load "textmodes/paragraphs") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
192 (load "emacs-lisp/lisp-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
193 (load "textmodes/text-mode") |
14f25d37d137
Some files are in different directories.
Richard M. Stallman <rms@gnu.org>
parents:
18209
diff
changeset
|
194 (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
|
195 |
35 | 196 (load "replace") |
197 (load "buff-menu") | |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
198 |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
199 (if (fboundp 'x-create-frame) |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
200 (progn |
69051
c3909e10eb35
Load "fringe" on window systems.
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
201 (load "fringe") |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
202 (load "image") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
203 (load "international/fontset") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
204 (load "dnd") |
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
205 (load "tool-bar"))) |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105949
diff
changeset
|
206 |
108024
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
107895
diff
changeset
|
207 (if (featurep 'dynamic-setting) |
4d8277a44bb4
Gtk tool bars can be text, icons with text or just icons.
Jan D. <jan.h.d@swipnet.se>
parents:
107895
diff
changeset
|
208 (load "dynamic-setting")) |
106085
cd4cbab8bb21
Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents:
105949
diff
changeset
|
209 |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
210 (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
|
211 (progn |
83398
c090869028e6
Fix some of the bootstrap problems.
Karoly Lorentey <lorentey@elte.hu>
parents:
83397
diff
changeset
|
212 (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
|
213 (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
|
214 (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
|
215 |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
216 (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
|
217 (progn |
85500
0dcd1f3c9909
* textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
84704
diff
changeset
|
218 (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
|
219 (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
|
220 (load "term/w32-win") |
9783
7d8fc4b4f60d
On windows-nt, load ls-lisp and winnt.
Richard M. Stallman <rms@gnu.org>
parents:
9752
diff
changeset
|
221 (load "ls-lisp") |
97664 | 222 (load "disp-table") |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
223 (load "dos-w32") |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
224 (load "w32-fns"))) |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
225 (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
|
226 (progn |
16593
4ed80eda6fac
Use new names for w32 files
Geoff Voelker <voelker@cs.washington.edu>
parents:
16174
diff
changeset
|
227 (load "dos-w32") |
5459
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
228 (load "dos-fns") |
22071
33fd1716466a
Load dos-vars along with dos-fns.
Richard M. Stallman <rms@gnu.org>
parents:
21541
diff
changeset
|
229 (load "dos-vars") |
97664 | 230 ;; Don't load term/common-win: it isn't appropriate for the `pc' |
231 ;; ``window system'', which generally behaves like a terminal. | |
232 (load "term/pc-win") | |
233 (load "ls-lisp") | |
19356
239b86c13fc3
Delete most calls to garbage-collect.
Richard M. Stallman <rms@gnu.org>
parents:
19355
diff
changeset
|
234 (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el |
96921 | 235 (if (featurep 'ns) |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
236 (progn |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96137
diff
changeset
|
237 (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
|
238 (load "term/ns-win"))) |
104979
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
239 (if (fboundp 'x-create-frame) |
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
240 ;; Do it after loading term/foo-win.el since the value of the |
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
241 ;; mouse-wheel-*-event vars depends on those files being loaded or not. |
c545eaa5edad
* mwheel.el (mwheel-installed-bindings): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104938
diff
changeset
|
242 (load "mwheel")) |
34351
fedc41b477f0
Load emacs-lisp/backquote instead of autoloading
Sam Steingold <sds@gnu.org>
parents:
33103
diff
changeset
|
243 (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
|
244 (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
|
245 (load "emacs-lisp/float-sup"))) |
9442
973eafd9f349
Write the subdirs.el file.
Richard M. Stallman <rms@gnu.org>
parents:
8184
diff
changeset
|
246 |
108972
086d8a46a85d
* loadup.el ("vc-hooks", "ediff-hook"): Load from lisp/vc/.
Juanma Barranquero <lekktu@gmail.com>
parents:
108726
diff
changeset
|
247 (load "vc/vc-hooks") |
086d8a46a85d
* loadup.el ("vc-hooks", "ediff-hook"): Load from lisp/vc/.
Juanma Barranquero <lekktu@gmail.com>
parents:
108726
diff
changeset
|
248 (load "vc/ediff-hook") |
61567
7e8e06678917
Load tooltip if x-show-tip is fboundp.
Luc Teirlinck <teirllm@auburn.edu>
parents:
59126
diff
changeset
|
249 (if (fboundp 'x-show-tip) (load "tooltip")) |
66491
30626d7732c1
("facemenu"): Load unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
250 |
35 | 251 ;If you want additional libraries to be preloaded and their |
252 ;doc strings kept in the DOC file rather than in core, | |
253 ;you may load them with a "site-load.el" file. | |
254 ;But you must also cause them to be scanned when the DOC file | |
97142 | 255 ;is generated. |
13316 | 256 ;For other systems, you must edit ../src/Makefile.in. |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
257 (load "site-load" t) |
35 | 258 |
5489
3f6777439468
Extend emacs-version based on which executable files exist.
Richard M. Stallman <rms@gnu.org>
parents:
5459
diff
changeset
|
259 ;; 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
|
260 ;; 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
|
261 (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
|
262 (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
|
263 (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
|
264 (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
|
265 (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
|
266 (versions (mapcar (function (lambda (name) |
13366 | 267 (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
|
268 files))) |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
269 ;; `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
|
270 (defconst emacs-version |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
271 (format "%s.%d" |
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
272 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
|
273 |
35 | 274 |
275 (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
|
276 (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
|
277 (equal (nth 4 command-line-args) "dump")) |
35 | 278 (let ((name emacs-version)) |
279 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | |
280 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | |
281 "-" | |
282 (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
|
283 (if (memq system-type '(ms-dos windows-nt)) |
9572 | 284 (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
|
285 (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
|
286 (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
|
287 (if (file-exists-p name) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
288 (delete-file name)) |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
289 (copy-file (expand-file-name "../etc/DOC") name t)) |
1065 | 290 (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
|
291 (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
|
292 (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
|
293 (error nil))) |
35 | 294 (message "Finding pointers to doc strings...done") |
295 | |
22357 | 296 ;;;Note: You can cause additional libraries to be preloaded |
297 ;;;by writing a site-init.el that loads them. | |
298 ;;;See also "site-load" above. | |
35 | 299 (load "site-init" t) |
8184
8ccef13ebe58
(current-load-list): Set it to nil.
Richard M. Stallman <rms@gnu.org>
parents:
7372
diff
changeset
|
300 (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
|
301 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
302 ;; 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
|
303 ;; 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
|
304 ;; (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
|
305 ;; (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
|
306 ;; (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
|
307 ;; (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
|
308 ;; (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
|
309 ;; (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
|
310 ;; (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
|
311 ;; (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
|
312 ;; (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
|
313 ;; (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
|
314 ;; (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
|
315 ;; (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
|
316 ;; (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
|
317 ;; (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
|
318 ;; (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
|
319 ;; (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
|
320 ;; (cond |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
321 ;; ((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
|
322 ;; "../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
|
323 ;; ((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
|
324 ;; (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
|
325 ;; (t |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
326 ;; (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
|
327 ;; 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
|
328 ;; (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
|
329 ;; (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
|
330 ;; (setq symbol-file-load-history-loaded t)) |
377def17ab0f
Call ucs-unify-8859 directly rather than unify-8859-on-encoding-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44015
diff
changeset
|
331 ;; 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
|
332 ;; 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
|
333 ;; 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
|
334 (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
|
335 (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
|
336 |
23575
6df77402dfd4
Write fns-*.el in current directory instead of
Andreas Schwab <schwab@suse.de>
parents:
23286
diff
changeset
|
337 (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
|
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 ;; 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
|
340 (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
|
341 (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
|
342 (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
|
343 |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
344 (remove-hook 'after-load-functions '(lambda (f) (garbage-collect))) |
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
345 |
99983
3634b7edab06
Set inhibit-load-charset-map to t while preloading
Kenichi Handa <handa@m17n.org>
parents:
98418
diff
changeset
|
346 (setq inhibit-load-charset-map nil) |
88399
c93a7728939b
Don't load "international/utf-8". Don't call
Kenichi Handa <handa@m17n.org>
parents:
42849
diff
changeset
|
347 (clear-charset-maps) |
35 | 348 (garbage-collect) |
349 | |
105029
4859f3f9f0dc
Use after-load-functions to GC after loading each file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104979
diff
changeset
|
350 ;; At this point, we're ready to resume undo recording for scratch. |
648 | 351 (buffer-enable-undo "*scratch*") |
352 | |
107895
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
353 ;; Avoid error if user loads some more libraries now and make sure the |
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
354 ;; hash-consing hash table is GC'd. |
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
355 (setq purify-flag nil) |
265966b778f9
Hash-cons pure data.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107186
diff
changeset
|
356 |
51699
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
357 (if (null (garbage-collect)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
358 (setq pure-space-overflow t)) |
9603cfeea5a5
(pure-space-overflow): Set it if overflow.
Richard M. Stallman <rms@gnu.org>
parents:
51354
diff
changeset
|
359 |
26002
4f46db3c9d7d
* subr.el (with-current-buffer): don't use backquotes to avoid
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25121
diff
changeset
|
360 (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
|
361 (member (nth 4 command-line-args) '("dump" "bootstrap"))) |
97142 | 362 (progn |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
363 (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
|
364 (message "Dumping under the name emacs") |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
365 (message "Dumping under the name emacs")) |
35 | 366 (condition-case () |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
367 (delete-file "emacs") |
35 | 368 (file-error nil)) |
1703
b5fbc3880aa3
* loadup.el: Dump under the name `emacs', not `xemacs'.
Jim Blandy <jimb@redhat.com>
parents:
1692
diff
changeset
|
369 ;; 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
|
370 ;; 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
|
371 ;; under the name `xemacs'), and it's inconsistent with every |
22357 | 372 ;; 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
|
373 (dump-emacs "emacs" "temacs") |
9752
113f20118cc3
Load facemenu if have X.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
374 (message "%d pure bytes used" pure-bytes-used) |
35 | 375 ;; 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
|
376 (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
|
377 ;; 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
|
378 ;; building bootstrap-emacs. |
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
379 (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
|
380 (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
|
381 (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
|
382 (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
|
383 (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
|
384 "-" |
ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
Richard M. Stallman <rms@gnu.org>
parents:
2806
diff
changeset
|
385 (substring name (match-end 0))))) |
96137
eae2eee28ad3
Make "make" do a bootstrap if needed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94753
diff
changeset
|
386 (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
|
387 (add-name-to-file "emacs" name t))) |
35 | 388 (kill-emacs))) |
389 | |
390 ;; For machines with CANNOT_DUMP defined in config.h, | |
391 ;; 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
|
392 ;; So run the startup code now. First, remove `-l loadup' from args. |
35 | 393 |
22358
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
394 (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
|
395 (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
|
396 (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
|
397 |
6c112ffbcc91
Clean up mechanism for removing -l loadup from end.
Karl Heuer <kwzh@gnu.org>
parents:
22357
diff
changeset
|
398 (eval top-level) |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
399 |
44015
599660b79608
("emacs-lisp/backquote"): Load earlier.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42849
diff
changeset
|
400 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
401 ;; Local Variables: |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
402 ;; no-byte-compile: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
403 ;; no-update-autoloads: t |
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
404 ;; End: |
52401 | 405 |
93888
ea7acaabb973
Preload minibuffer.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92070
diff
changeset
|
406 ;; arch-tag: 121e1dd4-36e1-45ac-860e-239f577a6335 |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
648
diff
changeset
|
407 ;;; loadup.el ends here |