Mercurial > hg > xemacs-beta
annotate lisp/loadup.el @ 5576:071b810ceb18
Declare labels as line where appropriate; use #'labels, not #'flet, tests.
lisp/ChangeLog addition:
2011-10-03 Aidan Kehoe <kehoea@parhasard.net>
* simple.el (handle-pre-motion-command-current-command-is-motion):
Implement #'keysyms-equal with #'labels + (declare (inline ...)),
instead of abusing macrolet to the same end.
* specifier.el (let-specifier):
* mule/mule-cmds.el (describe-language-environment):
* mule/mule-cmds.el (set-language-environment-coding-systems):
* mule/mule-x-init.el (x-use-halfwidth-roman-font):
* faces.el (Face-frob-property):
* keymap.el (key-sequence-list-description):
* lisp-mode.el (construct-lisp-mode-menu):
* loadhist.el (unload-feature):
* mouse.el (default-mouse-track-check-for-activation):
Declare various labels inline in dumped files when that reduces
the size of the dumped image. Declaring labels inline is normally
only worthwhile for inner loops and so on, but it's reasonable
exercise of the related code to have these changes in core.
tests/ChangeLog addition:
2011-10-03 Aidan Kehoe <kehoea@parhasard.net>
* automated/case-tests.el (uni-mappings):
* automated/database-tests.el (delete-database-files):
* automated/hash-table-tests.el (iterations):
* automated/lisp-tests.el (test1):
* automated/lisp-tests.el (a):
* automated/lisp-tests.el (cl-floor):
* automated/lisp-tests.el (foo):
* automated/lisp-tests.el (list-nreverse):
* automated/lisp-tests.el (needs-lexical-context):
* automated/mule-tests.el (featurep):
* automated/os-tests.el (original-string):
* automated/os-tests.el (with):
* automated/symbol-tests.el (check-weak-list-unique):
Replace #'flet with #'labels where appropriate in these tests,
following my own advice on style in the docstrings of those
functions.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 03 Oct 2011 20:16:14 +0100 |
| parents | 308d34e9f07d |
| children | 10f179710250 |
| rev | line source |
|---|---|
| 428 | 1 ;; loadup.el --- load up standardly loaded Lisp files for XEmacs. |
| 2 | |
| 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 1997 Free Software Foundation, Inc. | |
| 4 ;; Copyright (C) 1996 Richard Mlynarik. | |
|
4841
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 2003, 2005 Ben Wing. |
| 428 | 6 |
| 7 ;; Maintainer: XEmacs Development Team | |
| 8 ;; Keywords: internal, dumped | |
| 9 | |
| 10 ;; This file is part of XEmacs. | |
| 11 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
12 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
13 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
14 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
15 ;; option) any later version. |
| 428 | 16 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
20 ;; for more details. |
| 428 | 21 |
| 22 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5228
diff
changeset
|
23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 24 |
| 25 ;;; Synched up with: Last synched with FSF 19.30, with wild divergence since. | |
| 26 | |
| 27 ;;; Commentary: | |
| 28 | |
| 1261 | 29 ;; If you are wanting to add files to be dumped into your local version of |
| 30 ;; XEmacs, DO NOT add them here. Use site-init.el or site-load.el instead. | |
| 428 | 31 |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
32 ;; ***Note the docstrings for the variables in this file. They follow the |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
33 ;; conventions described in lib-src/make-docfile.c, and any new variables or |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
34 ;; functions added to this file should follow those conventions too, since |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
35 ;; this file is always loaded uncompiled, and the byte-compiler never gets a |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
36 ;; chance to format the docstrings in the way make-docfile.c understands. |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
37 |
| 428 | 38 ;; This is loaded into a bare XEmacs to make a dumpable one. |
| 39 | |
| 40 ;;; Code: | |
| 41 | |
| 1261 | 42 ;; Help debug problems. |
| 43 (setq stack-trace-on-error t | |
| 44 load-always-display-messages t) | |
|
4841
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
45 (when (featurep 'debug-xemacs) |
|
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
46 ;; Immediately dump core upon an unhandled error, rather than just quitting |
|
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
47 ;; the program. This can also be achieved by setting an environment variable |
|
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
48 ;; XEMACSDEBUG to contain '(setq debug-on-error t)', e.g. |
|
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
49 ;; export XEMACSDEBUG='(setq debug-on-error t)' |
|
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
50 (setq debug-on-error t)) |
| 1261 | 51 |
| 1330 | 52 ;(princ (format "command-line-args: %s\n" command-line-args)) |
| 53 ;(princ (format "configure-lisp-directory: %S\n" configure-lisp-directory)) | |
| 54 ;(princ (format "configure-data-directory: %S\n" configure-data-directory)) | |
| 55 ;(princ (format "lisp-directory: %S\n" lisp-directory)) | |
| 56 | |
| 428 | 57 (when (fboundp 'error) |
| 58 (error "loadup.el already loaded!")) | |
| 59 | |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
60 (defconst running-xemacs t "\ |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
61 Non-nil when the current emacs is XEmacs.") |
| 3511 | 62 |
| 63 ;; Can't make this constant for now because it causes an error in | |
| 64 ;; update-elc.el. | |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
65 (defvar source-lisp (file-name-directory (expand-file-name (nth 2 command-line-args))) "\ |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
66 Root of tree containing the Lisp source code for the current build. |
| 3511 | 67 Differs from `lisp-directory' if this XEmacs has been installed. ") |
| 68 | |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
69 (defconst build-directory (expand-file-name ".." invocation-directory) "\ |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
70 Root of tree containing object files and executables produced by build. |
| 3511 | 71 Differs from `source-directory' if configured with --srcdir option, a practice |
| 72 recommended for developers.") | |
| 73 | |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
74 (defconst source-directory (expand-file-name ".." source-lisp) "\ |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
75 Root of tree containing source code for the current build. |
| 3511 | 76 Used during loadup and for documenting source of symbols defined in C.") |
| 77 | |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
78 (defvar preloaded-file-list nil "\ |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
79 List of Lisp files preloaded into the XEmacs binary image, |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
80 with the exception of `loadup.el'.") |
| 428 | 81 |
| 442 | 82 ;(start-profiling) |
| 83 | |
| 84 (let ((gc-cons-threshold | |
| 85 ;; setting it low makes loadup incredibly fucking slow. | |
| 86 ;; no need to do it when not dumping. | |
| 87 (if (and purify-flag | |
| 88 (not (memq 'quick-build internal-error-checking))) | |
| 89 30000 3000000))) | |
| 1261 | 90 |
| 91 ;; really-early-error-handler outputs a stack trace so let's not do it | |
| 92 ;; twice. | |
| 93 (let ((stack-trace-on-error nil)) | |
| 428 | 94 |
| 95 ;; This is awfully damn early to be getting an error, right? | |
| 96 (call-with-condition-handler 'really-early-error-handler | |
| 97 #'(lambda () | |
| 1330 | 98 (setq load-path (list source-lisp)) |
| 3511 | 99 (setq module-load-path (list |
| 100 (expand-file-name "modules" build-directory))) | |
| 428 | 101 |
| 102 ;; message not defined yet ... | |
| 103 (external-debugging-output (format "\nUsing load-path %s" load-path)) | |
| 104 (external-debugging-output (format "\nUsing module-load-path %s" | |
| 105 module-load-path)) | |
| 106 | |
| 107 ;; We don't want to have any undo records in the dumped XEmacs. | |
| 108 (buffer-disable-undo (get-buffer "*scratch*")) | |
| 109 | |
| 110 ;; lread.c (or src/Makefile.in.in) has prepended | |
| 111 ;; "${srcdir}/../lisp/" to load-path, which is how this file | |
| 112 ;; has been found. At this point, enough of XEmacs has been | |
| 113 ;; initialized that we can start dumping "standard" lisp. | |
| 114 ;; Dumped lisp from external packages is added when we search | |
| 115 ;; the package path. | |
| 116 ;; #### This code is duplicated in two other places. | |
| 117 (let ((temp-path (expand-file-name "." (car load-path)))) | |
| 118 (setq load-path (nconc (mapcar | |
| 119 #'(lambda (i) (concat i "/")) | |
| 120 (directory-files temp-path t "^[^-.]" | |
| 121 nil 'dirs-only)) | |
| 122 (cons (file-name-as-directory temp-path) | |
| 123 load-path)))) | |
| 124 | |
| 1261 | 125 (setq load-warn-when-source-only t) ; Set to nil at the end |
| 428 | 126 |
| 127 ;; garbage collect after loading every file in an attempt to | |
| 128 ;; minimize the size of the dumped image (if we don't do this, | |
| 129 ;; there will be lots of extra space in the data segment filled | |
| 130 ;; with garbage-collected junk) | |
| 131 (defun pureload (file) | |
| 132 (let ((full-path | |
| 133 (locate-file file load-path | |
| 134 (if load-ignore-elc-files | |
| 135 '(".el" "") '(".elc" ".el" ""))))) | |
| 136 (if full-path | |
| 137 (prog1 | |
| 138 (load full-path) | |
| 442 | 139 ;; but garbage collection really slows down loading. |
| 140 (unless (memq 'quick-build internal-error-checking) | |
| 141 (garbage-collect))) | |
| 428 | 142 (external-debugging-output (format "\nLoad file %s: not found\n" |
| 143 file)) | |
| 144 ;; Uncomment in case of trouble | |
| 2456 | 145 ;;(print (format "late-package-hierarchies: %S" late-package-hierarchies)) |
| 1227 | 146 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-root-p))) |
| 147 ;;(print (format "guessed-data-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name #'paths-emacs-data-root-p))) | |
| 428 | 148 nil))) |
| 149 | |
| 1330 | 150 (load (expand-file-name "dumped-lisp.el" source-lisp)) |
| 428 | 151 |
| 152 (let ((files preloaded-file-list) | |
| 153 file) | |
| 154 (while (setq file (car files)) | |
| 155 (unless (pureload file) | |
| 156 (external-debugging-output "Fatal error during load, aborting") | |
| 157 (kill-emacs 1)) | |
| 158 (setq files (cdr files))) | |
| 159 (when (not (featurep 'toolbar)) | |
| 160 ;; else still define a few functions. | |
| 161 (defun toolbar-button-p (obj) "No toolbar support." nil) | |
| 162 (defun toolbar-specifier-p (obj) "No toolbar support." nil)) | |
| 163 (fmakunbound 'pureload)) | |
| 164 | |
| 165 (packages-load-package-dumped-lisps late-package-load-path) | |
| 166 | |
| 167 )) ;; end of call-with-condition-handler | |
| 1261 | 168 |
| 169 ) ; (let ((stack-trace-on-error nil))) | |
| 428 | 170 |
| 171 ;; Fix up the preloaded file list | |
| 172 (setq preloaded-file-list (mapcar #'file-name-sans-extension | |
| 173 preloaded-file-list)) | |
| 174 | |
| 1261 | 175 (setq load-warn-when-source-only nil) |
| 428 | 176 |
| 177 (setq debugger 'debug) | |
| 178 | |
| 179 (when (member "no-site-file" command-line-args) | |
| 180 (setq site-start-file nil)) | |
| 181 | |
| 182 ;; If you want additional libraries to be preloaded and their | |
| 183 ;; doc strings kept in the DOC file rather than in core, | |
| 184 ;; you may load them with a "site-load.el" file. | |
| 185 ;; But you must also cause them to be scanned when the DOC file | |
| 1261 | 186 ;; is generated. For MS Windows, you must edit ../nt/xemacs.mak. |
| 187 ;; For other systems, you must edit ../src/Makefile.in.in. | |
| 428 | 188 (when (load "site-load" t) |
| 442 | 189 (garbage-collect) |
| 190 ) | |
| 428 | 191 |
| 192 ;;FSFmacs randomness | |
| 193 ;;(if (fboundp 'x-popup-menu) | |
| 194 ;; (precompute-menubar-bindings)) | |
| 195 ;;; Turn on recording of which commands get rebound, | |
| 196 ;;; for the sake of the next call to precompute-menubar-bindings. | |
| 197 ;(setq define-key-rebound-commands nil) | |
| 198 | |
| 199 ;; Note: all compiled Lisp files loaded above this point | |
| 200 ;; must be among the ones parsed by make-docfile | |
| 201 ;; to construct DOC. Any that are not processed | |
| 202 ;; for DOC will not have doc strings in the dumped XEmacs. | |
| 203 | |
| 204 ;; Don't bother with these if we're running temacs, i.e. if we're | |
| 205 ;; just debugging don't waste time finding doc strings. | |
| 206 | |
| 207 ;; purify-flag is nil if called from loadup-el.el. | |
| 208 (when purify-flag | |
| 209 (message "Finding pointers to doc strings...") | |
| 210 (Snarf-documentation "DOC") | |
| 211 (message "Finding pointers to doc strings...done") | |
| 212 (Verify-documentation)) | |
| 213 | |
| 214 ;; Note: You can cause additional libraries to be preloaded | |
| 215 ;; by writing a site-init.el that loads them. | |
| 216 ;; See also "site-load" above. | |
| 217 (when (stringp site-start-file) | |
| 218 (load "site-init" t)) | |
|
4915
bedf3747a6d7
Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file
Aidan Kehoe <kehoea@parhasard.net>
parents:
4899
diff
changeset
|
219 |
|
bedf3747a6d7
Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file
Aidan Kehoe <kehoea@parhasard.net>
parents:
4899
diff
changeset
|
220 ;; Add information from this file to the load history. Delete information |
|
5206
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
221 ;; that is available from DOC for those files in preloaded-file-list; in |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
222 ;; practice, this boils down to #'provide and #'require calls, and variables |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
223 ;; without documentation. Yes, this is a bit ugly. |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
224 (setq load-history (cons (nreverse current-load-list) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
225 (delete* |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
226 nil |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
227 (mapc #'(lambda (element) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
228 (remassq 'defun element) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
229 (delete-if |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
230 #'(lambda (elt) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
231 (and |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
232 (symbolp elt) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
233 (get elt 'variable-documentation))) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
234 element)) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
235 load-history) |
|
39d74978fd32
Keep around file info for dumped functions and variables without docstrings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4915
diff
changeset
|
236 :key #'cdr)) |
|
4539
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
237 ;; Clear current-load-list; this (and adding information to |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
238 ;; load-history) is normally done in lread.c after reading the |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
239 ;; entirety of a file, something which never happens for loadup.el. |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
240 current-load-list nil) |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
241 ;; Make the path to this file look a little nicer: |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
242 (setcar (car load-history) (file-truename (caar load-history))) |
|
061e030e3270
Fix some bugs in load-history construction, built-in symbol file names.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
243 |
| 428 | 244 (garbage-collect) |
| 245 | |
| 246 ;;; At this point, we're ready to resume undo recording for scratch. | |
| 247 (buffer-enable-undo "*scratch*") | |
| 248 | |
| 1261 | 249 ) ;; (let ((gc-cons-threshold [frequent garbage collection when dumping]))) |
| 428 | 250 |
| 442 | 251 ;(stop-profiling) |
| 252 | |
| 428 | 253 ;; Dump into the name `xemacs' (only) |
| 254 (when (member "dump" command-line-args) | |
| 255 (message "Dumping under the name xemacs") | |
| 256 ;; This is handled earlier in the build process. | |
| 257 ;; (condition-case () (delete-file "xemacs") (file-error nil)) | |
| 258 (when (fboundp 'really-free) | |
| 259 (really-free)) | |
| 1261 | 260 ;; Make sure we don't dump with debugging messages turned on. |
| 261 (setq stack-trace-on-error nil | |
|
4841
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
262 load-always-display-messages nil |
|
3465c3161fea
when `debug', abort when lisp error during loadup
Ben Wing <ben@xemacs.org>
parents:
4539
diff
changeset
|
263 debug-on-error nil) |
| 462 | 264 (dump-emacs |
|
5228
5efbd1253905
Remove all support for InfoDock.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5206
diff
changeset
|
265 "xemacs" |
| 462 | 266 "temacs") |
| 428 | 267 (kill-emacs)) |
| 268 | |
| 269 ;; Avoid error if user loads some more libraries now. | |
| 270 (setq purify-flag nil) | |
| 271 | |
| 272 (when (member "run-temacs" command-line-args) | |
| 273 (message "\nBootstrapping from temacs...") | |
| 274 ;; Remove all args up to and including "run-temacs" | |
| 275 (apply #'run-emacs-from-temacs (cdr (member "run-temacs" command-line-args))) | |
| 276 ;; run-emacs-from-temacs doesn't actually return anyway. | |
| 277 (kill-emacs)) | |
| 278 | |
| 279 ;; XEmacs change | |
| 280 ;; If you are using 'recompile', then you should have used -l loadup-el.el | |
| 281 ;; so that the .el files always get loaded (the .elc files may be out-of- | |
| 282 ;; date or bad). | |
| 283 (when (member "recompile" command-line-args) | |
| 284 (setq command-line-args-left (cdr (member "recompile" command-line-args))) | |
| 285 (batch-byte-recompile-directory) | |
| 286 (kill-emacs)) | |
| 287 | |
| 288 ;; For machines with CANNOT_DUMP defined in config.h, | |
| 289 ;; this file must be loaded each time Emacs is run. | |
| 290 ;; So run the startup code now. | |
| 291 | |
| 292 (when (not (fboundp 'dump-emacs)) | |
| 293 ;; Avoid loading loadup.el a second time! | |
| 294 (setq command-line-args (cdr (cdr command-line-args))) | |
| 295 (eval top-level)) | |
| 296 | |
| 297 ;;; loadup.el ends here |