loadup.el 19.7 KB
Newer Older
1
;;; loadup.el --- load up standardly loaded Lisp files for Emacs
Eric S. Raymond's avatar
Eric S. Raymond committed
2

Paul Eggert's avatar
Paul Eggert committed
3
;; Copyright (C) 1985-1986, 1992, 1994, 2001-2019 Free Software
Paul Eggert's avatar
Paul Eggert committed
4
;; Foundation, Inc.
Eric S. Raymond's avatar
Eric S. Raymond committed
5

6
;; Maintainer: emacs-devel@gnu.org
Eric S. Raymond's avatar
Eric S. Raymond committed
7
;; Keywords: internal
8
;; Package: emacs
Eric S. Raymond's avatar
Eric S. Raymond committed
9

Jim Blandy's avatar
Jim Blandy committed
10 11
;; This file is part of GNU Emacs.

12
;; GNU Emacs is free software: you can redistribute it and/or modify
Jim Blandy's avatar
Jim Blandy committed
13
;; it under the terms of the GNU General Public License as published by
14 15
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Jim Blandy's avatar
Jim Blandy committed
16 17 18 19 20 21 22

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
23
;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
Jim Blandy's avatar
Jim Blandy committed
24

Eric S. Raymond's avatar
Eric S. Raymond committed
25 26 27 28
;;; Commentary:

;; This is loaded into a bare Emacs to make a dumpable one.

Daniel Colascione's avatar
Daniel Colascione committed
29 30 31
;; Emacs injects the variable `dump-mode' to tell us how to dump.
;; We unintern it before allowing user code to run.

32
;; If you add a file to be loaded here, keep the following points in mind:
Glenn Morris's avatar
Glenn Morris committed
33

34 35 36 37
;; i) If the file is no-byte-compile, explicitly load the .el version.
;; Such files should (where possible) obey the doc-string conventions
;; expected by make-docfile.  They should also be added to the
;; uncompiled[] list in make-docfile.c.
Glenn Morris's avatar
Glenn Morris committed
38

39 40 41 42 43 44 45
;; ii) If the file is dumped with Emacs (on any platform), put the
;; load statement at the start of a line (leading whitespace is ok).

;; iii) If the file is _not_ dumped with Emacs, make sure the load
;; statement is _not_ at the start of a line.  See pcase for an example.

;; These rules are so that src/Makefile can construct lisp.mk automatically.
46 47 48
;; This ensures both that the Lisp files are compiled (if necessary)
;; before the emacs executable is dumped, and that they are passed to
;; make-docfile.  (Any that are not processed for DOC will not have
49
;; doc strings in the dumped Emacs.)
Glenn Morris's avatar
Glenn Morris committed
50

Eric S. Raymond's avatar
Eric S. Raymond committed
51 52
;;; Code:

53 54 55 56 57 58 59
;; This is used in xdisp.c to determine when bidi reordering is safe.
;; (It starts non-nil in temacs, but we set it non-nil here anyway, in
;; case someone loads loadup one more time.)  We reset it after
;; successfully loading charprop.el, which defines the Unicode tables
;; bidi.c needs for its job.
(setq redisplay--inhibit-bidi t)

Daniel Colascione's avatar
Daniel Colascione committed
60 61
(message "dump mode: %s" dump-mode)

Glenn Morris's avatar
Glenn Morris committed
62
;; Add subdirectories to the load-path for files that might get
Daniel Colascione's avatar
Daniel Colascione committed
63
;; autoloaded when bootstrapping or running Emacs normally.
64
;; This is because PATH_DUMPLOADSEARCH is just "../lisp".
Daniel Colascione's avatar
Daniel Colascione committed
65
(if (or (member dump-mode '("bootstrap" "pbootstrap"))
66
	;; FIXME this is irritatingly fragile.
Daniel Colascione's avatar
Daniel Colascione committed
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104
        (and (stringp (nth 4 command-line-args))
             (string-match "^unidata-gen\\(\\.elc?\\)?$"
                           (nth 4 command-line-args)))
        (member (nth 7 command-line-args) '("unidata-gen-file"
                                            "unidata-gen-charprop"))
        (null dump-mode))
    (progn
      ;; Find the entry in load-path that contains Emacs elisp and
      ;; splice some additional directories in there for the benefit
      ;; of autoload and regular Emacs use.
      (let ((subdirs '("emacs-lisp"
                       "progmodes"
                       "language"
                       "international"
                       "textmodes"
                       "vc"))
            (iter load-path))
        (while iter
          (let ((dir (car iter))
                (subdirs subdirs)
                esubdirs esubdir)
            (while subdirs
              (setq esubdir (expand-file-name (car subdirs) dir))
              (setq subdirs (cdr subdirs))
              (if (file-directory-p esubdir)
                  (setq esubdirs (cons esubdir esubdirs))
                (setq subdirs nil esubdirs nil)))
            (if esubdirs
                (progn
                  (setcdr iter (nconc (nreverse esubdirs) (cdr iter)))
                  (setq iter nil))
              (setq iter (cdr iter))
              (if (null iter)
                  (signal
                   'error (list
                           (format-message
                            "Could not find elisp load-path: searched %S"
                            load-path))))))))
105 106
      ;; We'll probably overflow the pure space.
      (setq purify-flag nil)
107
      ;; Value of max-lisp-eval-depth when compiling initially.
Daniel Colascione's avatar
Daniel Colascione committed
108 109 110 111
      ;; During bootstrapping the byte-compiler is run interpreted
      ;; when compiling itself, which uses a lot more stack
      ;; than usual.
      (setq max-lisp-eval-depth 2200)))
112

Stefan Monnier's avatar
Stefan Monnier committed
113 114
(if (eq t purify-flag)
    ;; Hash consing saved around 11% of pure space in my tests.
115
    (setq purify-flag (make-hash-table :test 'equal :size 80000)))
Stefan Monnier's avatar
Stefan Monnier committed
116

117 118
(message "Using load-path %s" load-path)

Daniel Colascione's avatar
Daniel Colascione committed
119
(if dump-mode
120 121 122 123 124 125
    (progn
      ;; To reduce the size of dumped Emacs, we avoid making huge char-tables.
      (setq inhibit-load-charset-map t)
      ;; --eval gets handled too late.
      (defvar load--prefer-newer load-prefer-newer)
      (setq load-prefer-newer t)))
126

127
;; We don't want to have any undo records in the dumped Emacs.
128 129
(set-buffer "*scratch*")
(setq buffer-undo-list t)
Jim Blandy's avatar
Jim Blandy committed
130

131
(load "emacs-lisp/byte-run")
132
(load "emacs-lisp/backquote")
Jim Blandy's avatar
Jim Blandy committed
133
(load "subr")
134

135 136
;; Do it after subr, since both after-load-functions and add-hook are
;; implemented in subr.el.
137
(add-hook 'after-load-functions (lambda (f) (garbage-collect)))
138

139
(load "version")
140

141 142
(load "widget")
(load "custom")
143
(load "emacs-lisp/map-ynp")
144
(load "international/mule")
145
(load "international/mule-conf")
146
(load "env")
147
(load "format")
148
(load "bindings")
149
(load "window")  ; Needed here for `replace-buffer-in-windows'.
150 151 152 153
;; We are now capable of resizing the mini-windows, so give the
;; variable its advertised default value (it starts as nil, see
;; xdisp.c).
(setq resize-mini-windows 'grow-only)
154
(setq load-source-file-function 'load-with-code-conversion)
Jim Blandy's avatar
Jim Blandy committed
155
(load "files")
156

157 158 159 160 161 162 163 164
;; Load-time macro-expansion can only take effect after setting
;; load-source-file-function because of where it is called in lread.c.
(load "emacs-lisp/macroexp")
(if (byte-code-function-p (symbol-function 'macroexpand-all))
    nil
  ;; Since loaddefs is not yet loaded, macroexp's uses of pcase will simply
  ;; fail until pcase is explicitly loaded.  This also means that we have to
  ;; disable eager macro-expansion while loading pcase.
165
  (let ((macroexp--pending-eager-loads '(skip))) (load "emacs-lisp/pcase"))
166
  ;; Re-load macroexp so as to eagerly macro-expand its uses of pcase.
167 168
  (let ((max-lisp-eval-depth (* 2 max-lisp-eval-depth)))
    (load "emacs-lisp/macroexp")))
169

170
(load "cus-face")
171 172
(load "faces")  ; after here, `defface' may be used.

173 174
(load "button")

175
;; We don't want to store loaddefs.el in the repository because it is
176 177 178 179 180
;; a generated file; but it is required in order to compile the lisp files.
;; When bootstrapping, we cannot generate loaddefs.el until an
;; emacs binary has been built.  We therefore compromise and keep
;; ldefs-boot.el in the repository.  This does not need to be updated
;; as often as the real loaddefs.el would.  Bootstrap should always
Paul Eggert's avatar
Paul Eggert committed
181
;; work with ldefs-boot.el.  Therefore, whenever a new autoload cookie
182 183
;; gets added that is necessary during bootstrapping, ldefs-boot.el
;; should be updated by overwriting it with an up-to-date copy of
Paul Eggert's avatar
Paul Eggert committed
184 185
;; loaddefs.el that is not corrupted by local changes.
;; admin/update_autogen can be used to update ldefs-boot.el periodically.
186
(condition-case nil (load "loaddefs.el")
187
  ;; In case loaddefs hasn't been generated yet.
188
  (file-error (load "ldefs-boot.el")))
189

190 191 192 193 194 195
(let ((new (make-hash-table :test 'equal)))
  ;; Now that loaddefs has populated definition-prefixes, purify its contents.
  (maphash (lambda (k v) (puthash (purecopy k) (purecopy v) new))
           definition-prefixes)
  (setq definition-prefixes new))

196
(load "emacs-lisp/nadvice")
197 198
(load "emacs-lisp/cl-preloaded")
(load "minibuffer")            ;After loaddefs, for define-minor-mode.
199
(load "obarray")        ;abbrev.el is implemented in terms of obarrays.
200
(load "abbrev")         ;lisp-mode.el and simple.el use define-abbrev-table.
201
(load "simple")
202

203
(load "help")
204

205
(load "jka-cmpr-hook")
206
(load "epa-hook")
207 208 209 210
;; Any Emacs Lisp source file (*.el) loaded here after can contain
;; multilingual text.
(load "international/mule-cmds")
(load "case-table")
Glenn Morris's avatar
Glenn Morris committed
211 212
;; This file doesn't exist when building a development version of Emacs
;; from the repository.  It is generated just after temacs is built.
213 214
(load "international/charprop.el" t)
(if (featurep 'charprop)
215
    (setq redisplay--inhibit-bidi nil))
216 217
(load "international/characters")
(load "composite")
218

219
;; Load language-specific files.
Karl Heuer's avatar
Karl Heuer committed
220 221 222
(load "language/chinese")
(load "language/cyrillic")
(load "language/indian")
223
(load "language/sinhala")
224
(load "language/english")
Karl Heuer's avatar
Karl Heuer committed
225 226
(load "language/ethiopic")
(load "language/european")
227 228
(load "language/czech")
(load "language/slovak")
Dan Nicolaescu's avatar
Dan Nicolaescu committed
229
(load "language/romanian")
Karl Heuer's avatar
Karl Heuer committed
230 231
(load "language/greek")
(load "language/hebrew")
232 233
(load "international/cp51932")
(load "international/eucjp-ms")
Karl Heuer's avatar
Karl Heuer committed
234 235
(load "language/japanese")
(load "language/korean")
Kenichi Handa's avatar
Kenichi Handa committed
236
(load "language/lao")
Kenichi Handa's avatar
Kenichi Handa committed
237
(load "language/tai-viet")
Karl Heuer's avatar
Karl Heuer committed
238
(load "language/thai")
239
(load "language/tibetan")
Karl Heuer's avatar
Karl Heuer committed
240 241
(load "language/vietnamese")
(load "language/misc-lang")
242 243
(load "language/utf-8-lang")
(load "language/georgian")
244
(load "language/khmer")
245
(load "language/burmese")
Kenichi Handa's avatar
Kenichi Handa committed
246
(load "language/cham")
247

Jim Blandy's avatar
Jim Blandy committed
248
(load "indent")
249
(load "emacs-lisp/cl-generic")
250
(load "frame")
Stefan Monnier's avatar
Stefan Monnier committed
251
(load "startup")
252
(load "term/tty-colors")
Colin Walters's avatar
Colin Walters committed
253
(load "font-core")
254 255
;; facemenu must be loaded before font-lock, because `facemenu-keymap'
;; needs to be defined when font-lock is loaded.
256
(load "facemenu")
257 258 259
(load "emacs-lisp/syntax")
(load "font-lock")
(load "jit-lock")
260

261
(load "mouse")
262 263
(if (boundp 'x-toolkit-scroll-bars)
    (load "scroll-bar"))
264
(load "select")
265
(load "emacs-lisp/timer")
266
(load "isearch")
Luc Teirlinck's avatar
Luc Teirlinck committed
267
(load "rfn-eshadow")
268

Richard M. Stallman's avatar
Richard M. Stallman committed
269
(load "menu-bar")
270 271
(load "emacs-lisp/lisp")
(load "textmodes/page")
Jim Blandy's avatar
Jim Blandy committed
272
(load "register")
273
(load "textmodes/paragraphs")
274
(load "progmodes/prog-mode")
275
(load "emacs-lisp/lisp-mode")
276
(load "progmodes/elisp-mode")
277 278
(load "textmodes/text-mode")
(load "textmodes/fill")
279
(load "newcomment")
280

Jim Blandy's avatar
Jim Blandy committed
281
(load "replace")
282
(load "emacs-lisp/tabulated-list")
Jim Blandy's avatar
Jim Blandy committed
283
(load "buff-menu")
284

285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312
(if (fboundp 'x-create-frame)
    (progn
      (load "fringe")
      ;; Needed by `imagemagick-register-types'
      (load "emacs-lisp/regexp-opt")
      (load "image")
      (load "international/fontset")
      (load "dnd")
      (load "tool-bar")))

(if (featurep 'dynamic-setting)
    (load "dynamic-setting"))

(if (featurep 'x)
    (progn
      (load "x-dnd")
      (load "term/common-win")
      (load "term/x-win")))

(if (or (eq system-type 'windows-nt)
        (featurep 'w32))
    (progn
      (load "term/common-win")
      (load "w32-vars")
      (load "term/w32-win")
      (load "disp-table")
      (when (eq system-type 'windows-nt)
        (load "w32-fns")
Daniel Colascione's avatar
Daniel Colascione committed
313
        (load "ls-lisp")
314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331
        (load "dos-w32"))))
(if (eq system-type 'ms-dos)
    (progn
      (load "dos-w32")
      (load "dos-fns")
      (load "dos-vars")
      ;; Don't load term/common-win: it isn't appropriate for the `pc'
      ;; ``window system'', which generally behaves like a terminal.
      (load "term/internal")
      (load "term/pc-win")
      (load "ls-lisp")
      (load "disp-table"))) ; needed to setup ibm-pc char set, see internal.el
(if (featurep 'ns)
    (progn
      (load "term/common-win")
      ;; Don't load ucs-normalize.el unless uni-*.el files were
      ;; already produced, because it needs uni-*.el files that might
      ;; not be built early enough during bootstrap.
332
      (when (featurep 'charprop)
333 334 335 336 337 338 339
        (load "international/mule-util")
        (load "international/ucs-normalize")
        (load "term/ns-win"))))
(if (fboundp 'x-create-frame)
    ;; Do it after loading term/foo-win.el since the value of the
    ;; mouse-wheel-*-event vars depends on those files being loaded or not.
    (load "mwheel"))
340 341
;; Preload some constants and floating point functions.
(load "emacs-lisp/float-sup")
342

343 344
(load "vc/vc-hooks")
(load "vc/ediff-hook")
345
(load "uniquify")
346
(load "electric")
347
(load "emacs-lisp/eldoc")
348
(load "cus-start") ;Late to reduce customize-rogue (needs loaddefs.el anyway)
349 350
(if (not (eq system-type 'ms-dos))
    (load "tooltip"))
351

Glenn Morris's avatar
Glenn Morris committed
352 353
;; This file doesn't exist when building a development version of Emacs
;; from the repository.  It is generated just after temacs is built.
354
(load "leim/leim-list.el" t)
Glenn Morris's avatar
Glenn Morris committed
355 356 357 358 359 360

;; If you want additional libraries to be preloaded and their
;; doc strings kept in the DOC file rather than in core,
;; you may load them with a "site-load.el" file.
;; But you must also cause them to be scanned when the DOC file
;; is generated.
361 362 363 364 365
(let ((lp load-path))
  (load "site-load" t)
  ;; We reset load-path after dumping.
  ;; For a permanent change in load-path, use configure's
  ;; --enable-locallisppath option.
366
  ;; See https://debbugs.gnu.org/16107 for more details.
367 368 369
  (or (equal lp load-path)
      (message "Warning: Change in load-path due to site-load will be \
lost after dumping")))
Jim Blandy's avatar
Jim Blandy committed
370

371 372 373 374 375 376 377
;; Make sure default-directory is unibyte when dumping.  This is
;; because we cannot decode and encode it correctly (since the locale
;; environment is not, and should not be, set up).  default-directory
;; is used every time we call expand-file-name, which we do in every
;; file primitive.  So the only workable solution to support building
;; in non-ASCII directories is to manipulate unibyte strings in the
;; current locale's encoding.
Daniel Colascione's avatar
Daniel Colascione committed
378
(if (and dump-mode (multibyte-string-p default-directory))
379 380
    (error "default-directory must be unibyte when dumping Emacs!"))

381
;; Determine which build number to use
382
;; based on the executables that now exist.
Daniel Colascione's avatar
Daniel Colascione committed
383 384 385 386 387
(if (and (or
          (and (equal dump-mode "dump")
               (fboundp 'dump-emacs))
          (and (equal dump-mode "pdump")
               (fboundp 'dump-emacs-portable)))
388
	 (not (eq system-type 'ms-dos)))
389
    (let* ((base (concat "emacs-" emacs-version "."))
390
	   (exelen (if (eq system-type 'windows-nt) -4))
391
	   (files (file-name-all-completions base default-directory))
392 393 394 395
	   (versions (mapcar (function
			      (lambda (name)
				(string-to-number
				 (substring name (length base) exelen))))
396
			     files)))
397 398
      (setq emacs-repository-version (ignore-errors (emacs-repository-get-version))
            emacs-repository-branch (ignore-errors (emacs-repository-get-branch)))
399 400 401
      ;; A constant, so we shouldn't change it with `setq'.
      (defconst emacs-build-number
	(if versions (1+ (apply 'max versions)) 1))))
402

Jim Blandy's avatar
Jim Blandy committed
403 404

(message "Finding pointers to doc strings...")
Daniel Colascione's avatar
Daniel Colascione committed
405 406 407 408
(if (and (or (and (fboundp 'dump-emacs)
                  (equal dump-mode "dump"))
             (and (fboundp 'dump-emacs-portable)
                  (equal dump-mode "pdump"))))
409 410 411 412
    (Snarf-documentation "DOC")
  (condition-case nil
      (Snarf-documentation "DOC")
    (error nil)))
Jim Blandy's avatar
Jim Blandy committed
413 414
(message "Finding pointers to doc strings...done")

415 416
;; Note: You can cause additional libraries to be preloaded
;; by writing a site-init.el that loads them.
417 418 419 420 421 422 423
;; See also "site-load" above
(let ((lp load-path))
  (load "site-init" t)
  (or (equal lp load-path)
      (message "Warning: Change in load-path due to site-init will be \
lost after dumping")))

424
(setq current-load-list nil)
425 426
;; Avoid storing references to build directory in the binary.
(setq custom-current-group-alist nil)
427

428
;; We keep the load-history data in PURE space.
429 430 431 432
;; Make sure that the spine of the list is not in pure space because it can
;; be destructively mutated in lread.c:build_load_history.
(setq load-history (mapcar 'purecopy load-history))

433
(set-buffer-modified-p nil)
434

435
(remove-hook 'after-load-functions (lambda (f) (garbage-collect)))
436

437 438 439 440 441 442
(if (boundp 'load--prefer-newer)
    (progn
      (setq load-prefer-newer load--prefer-newer)
      (put 'load-prefer-newer 'standard-value load--prefer-newer)
      (makunbound 'load--prefer-newer)))

443
(setq inhibit-load-charset-map nil)
444
(clear-charset-maps)
Jim Blandy's avatar
Jim Blandy committed
445 446
(garbage-collect)

447
;; At this point, we're ready to resume undo recording for scratch.
Jim Blandy's avatar
Jim Blandy committed
448 449
(buffer-enable-undo "*scratch*")

450 451 452
(when (hash-table-p purify-flag)
  (let ((strings 0)
        (vectors 0)
453
        (bytecodes 0)
454 455 456 457 458 459 460
        (conses 0)
        (others 0))
    (maphash (lambda (k v)
               (cond
                ((stringp k) (setq strings (1+ strings)))
                ((vectorp k) (setq vectors (1+ vectors)))
                ((consp k)   (setq conses  (1+ conses)))
461
                ((byte-code-function-p v) (setq bytecodes (1+ bytecodes)))
462 463
                (t           (setq others  (1+ others)))))
             purify-flag)
464 465
    (message "Pure-hashed: %d strings, %d vectors, %d conses, %d bytecodes, %d others"
             strings vectors conses bytecodes others)))
466

Stefan Monnier's avatar
Stefan Monnier committed
467 468 469 470
;; Avoid error if user loads some more libraries now and make sure the
;; hash-consing hash table is GC'd.
(setq purify-flag nil)

471 472 473
(if (null (garbage-collect))
    (setq pure-space-overflow t))

474 475 476
;; Make sure we will attempt bidi reordering henceforth.
(setq redisplay--inhibit-bidi nil)

Daniel Colascione's avatar
Daniel Colascione committed
477 478 479 480 481 482 483
(if dump-mode
    (let ((output (cond ((equal dump-mode "pdump") "emacs.pdmp")
                        ((equal dump-mode "dump") "emacs")
                        ((equal dump-mode "bootstrap") "emacs")
                        ((equal dump-mode "pbootstrap") "bootstrap-emacs.pdmp")
                        (t (error "unrecognized dump mode %s" dump-mode)))))
      (message "Dumping under the name %s" output)
Jim Blandy's avatar
Jim Blandy committed
484
      (condition-case ()
Daniel Colascione's avatar
Daniel Colascione committed
485 486 487 488 489 490
          (delete-file output)
        (file-error nil))
      ;; On MS-Windows, the current directory is not necessarily the
      ;; same as invocation-directory.
      (let (success)
        (unwind-protect
491 492 493
             (let ((tmp-dump-mode dump-mode)
                   (dump-mode nil))
               (if (member tmp-dump-mode '("pdump" "pbootstrap"))
Daniel Colascione's avatar
Daniel Colascione committed
494 495 496 497 498 499 500
                   (dump-emacs-portable (expand-file-name output invocation-directory))
                 (dump-emacs output "temacs")
                 (message "%d pure bytes used" pure-bytes-used))
               (setq success t))
          (unless success
            (ignore-errors
              (delete-file output)))))
Jim Blandy's avatar
Jim Blandy committed
501
      ;; Recompute NAME now, so that it isn't set when we dump.
502
      (if (not (or (eq system-type 'ms-dos)
503 504
                   ;; Don't bother adding another name if we're just
                   ;; building bootstrap-emacs.
Daniel Colascione's avatar
Daniel Colascione committed
505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526
                   (member dump-mode '("pbootstrap" "bootstrap"))))
          (let ((name (format "emacs-%s.%d" emacs-version emacs-build-number))
                (exe (if (eq system-type 'windows-nt) ".exe" "")))
            (while (string-match "[^-+_.a-zA-Z0-9]+" name)
              (setq name (concat (downcase (substring name 0 (match-beginning 0)))
                                 "-"
                                 (substring name (match-end 0)))))
            (message "Adding name %s" (concat name exe))
            ;; When this runs on Windows, invocation-directory is not
            ;; necessarily the current directory.
            (add-name-to-file (expand-file-name (concat "emacs" exe)
                                                invocation-directory)
                              (expand-file-name (concat name exe)
                                                invocation-directory)
                              t)
            (when (equal dump-mode "pdump")
              (message "Adding name %s" (concat name ".pdmp"))
              (add-name-to-file (expand-file-name "emacs.pdmp"
                                                  invocation-directory)
                                (expand-file-name (concat name ".pdmp")
                                                  invocation-directory)
                                t))))
Jim Blandy's avatar
Jim Blandy committed
527 528 529 530
      (kill-emacs)))

;; For machines with CANNOT_DUMP defined in config.h,
;; this file must be loaded each time Emacs is run.
531
;; So run the startup code now.  First, remove `-l loadup' from args.
Jim Blandy's avatar
Jim Blandy committed
532

533
(if (and (member (nth 1 command-line-args) '("-l" "--load"))
534 535 536 537
	 (equal (nth 2 command-line-args) "loadup"))
    (setcdr command-line-args (nthcdr 3 command-line-args)))

(eval top-level)
Eric S. Raymond's avatar
Eric S. Raymond committed
538

539

Stefan Monnier's avatar
Stefan Monnier committed
540 541 542 543
;; Local Variables:
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:
Kenichi Handa's avatar
Kenichi Handa committed
544

Eric S. Raymond's avatar
Eric S. Raymond committed
545
;;; loadup.el ends here