1;;; loadup.el --- load up standardly loaded Lisp files for Emacs. 2 3;; Copyright (C) 1985, 1986, 1992, 1994 Free Software Foundation, Inc. 4 5;; Maintainer: FSF 6;; Keywords: internal 7 8;; This file is part of GNU Emacs. 9 10;; GNU Emacs is free software; you can redistribute it and/or modify 11;; it under the terms of the GNU General Public License as published by 12;; the Free Software Foundation; either version 2, or (at your option) 13;; any later version. 14 15;; GNU Emacs is distributed in the hope that it will be useful, 16;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18;; GNU General Public License for more details. 19 20;; You should have received a copy of the GNU General Public License 21;; along with GNU Emacs; see the file COPYING. If not, write to 22;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 24;;; Commentary: 25 26;; This is loaded into a bare Emacs to make a dumpable one. 27 28;;; Code: 29 30(message "Using load-path %s" load-path) 31 32;;; We don't want to have any undo records in the dumped Emacs. 33(buffer-disable-undo "*scratch*") 34 35(load "subr") 36(garbage-collect) 37(load "byte-run") 38(garbage-collect) 39(load "map-ynp") 40(garbage-collect) 41(load "loaddefs.el") ;Don't get confused if someone compiled loaddefs by mistake. 42(garbage-collect) 43(load "simple") 44(garbage-collect) 45(load "help") 46(garbage-collect) 47(load "files") 48(garbage-collect) 49(load "indent") 50(garbage-collect) 51(load "window") 52(garbage-collect) 53(if (fboundp 'delete-frame) 54 (progn 55 (load "frame") 56 (load "mouse") 57 (garbage-collect) 58 (load "menu-bar") 59 (load "scroll-bar") 60 (load "select"))) 61(garbage-collect) 62(load "paths.el") ;Don't get confused if someone compiled paths by mistake. 63(garbage-collect) 64(load "startup") 65(garbage-collect) 66(load "lisp") 67(garbage-collect) 68(load "page") 69(garbage-collect) 70(load "register") 71(garbage-collect) 72(load "paragraphs") 73(garbage-collect) 74(load "lisp-mode") 75(garbage-collect) 76(load "text-mode") 77(garbage-collect) 78(load "fill") 79(garbage-collect) 80(load "c-mode") 81(garbage-collect) 82(load "isearch") 83(garbage-collect) 84(load "replace") 85(if (eq system-type 'vax-vms) 86 (progn 87 (garbage-collect) 88 (load "vmsproc"))) 89(garbage-collect) 90(load "abbrev") 91(garbage-collect) 92(load "buff-menu") 93(if (eq system-type 'vax-vms) 94 (progn 95 (garbage-collect) 96 (load "vms-patch"))) 97(if (eq system-type 'ms-dos) 98 (progn 99 (load "ls-lisp") 100 (garbage-collect) 101 (load "mouse") 102 (garbage-collect) 103 (load "dos-fns") 104 (garbage-collect) 105 (load "disp-table") ; needed to setup ibm-pc char set, see internal.el 106 (garbage-collect))) 107(if (fboundp 'atan) ; preload some constants and 108 (progn ; floating pt. functions if 109 (garbage-collect) ; we have float support. 110 (load "float-sup"))) 111(garbage-collect) 112(load "vc-hooks") 113 114;; We specify .el in case someone compiled version.el by mistake. 115(load "version.el") 116 117;If you want additional libraries to be preloaded and their 118;doc strings kept in the DOC file rather than in core, 119;you may load them with a "site-load.el" file. 120;But you must also cause them to be scanned when the DOC file 121;is generated. For VMS, you must edit ../vms/makedoc.com. 122;For other systems, you must edit ../src/Makefile.in.in. 123(if (load "site-load" t) 124 (garbage-collect)) 125 126;; Determine which last version number to use 127;; based on the executables that now exist. 128(if (and (or (equal (nth 3 command-line-args) "dump") 129 (equal (nth 4 command-line-args) "dump")) 130 (not (eq system-type 'ms-dos))) 131 (let* ((base (concat "emacs-" emacs-version)) 132 (files (file-name-all-completions base default-directory)) 133 (versions (mapcar (function (lambda (name) 134 (string-to-int (substring name (1+ (length base)))))) 135 files))) 136 (setq emacs-version (format "%s.%d" 137 emacs-version 138 (if versions 139 (1+ (apply 'max versions)) 140 1))))) 141 142;; Note: all compiled Lisp files loaded above this point 143;; must be among the ones parsed by make-docfile 144;; to construct DOC. Any that are not processed 145;; for DOC will not have doc strings in the dumped Emacs. 146 147(message "Finding pointers to doc strings...") 148(if (or (equal (nth 3 command-line-args) "dump") 149 (equal (nth 4 command-line-args) "dump")) 150 (let ((name emacs-version)) 151 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 152 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 153 "-" 154 (substring name (match-end 0))))) 155 (if (eq system-type 'ms-dos) 156 (setq name (expand-file-name "../etc/DOC")) 157 (setq name (concat (expand-file-name "../etc/DOC-") name)) 158 (if (file-exists-p name) 159 (delete-file name)) 160 (copy-file (expand-file-name "../etc/DOC") name t)) 161 (Snarf-documentation (file-name-nondirectory name))) 162 (Snarf-documentation "DOC")) 163(message "Finding pointers to doc strings...done") 164 165;Note: You can cause additional libraries to be preloaded 166;by writing a site-init.el that loads them. 167;See also "site-load" above. 168(load "site-init" t) 169(garbage-collect) 170 171;;; At this point, we're ready to resume undo recording for scratch. 172(buffer-enable-undo "*scratch*") 173 174(if (or (equal (nth 3 command-line-args) "dump") 175 (equal (nth 4 command-line-args) "dump")) 176 (if (eq system-type 'vax-vms) 177 (progn 178 (message "Dumping data as file temacs.dump") 179 (dump-emacs "temacs.dump" "temacs") 180 (kill-emacs)) 181 (let ((name (concat "emacs-" emacs-version))) 182 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 183 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 184 "-" 185 (substring name (match-end 0))))) 186 (if (eq system-type 'ms-dos) 187 (message "Dumping under the name emacs") 188 (message "Dumping under names emacs and %s" name))) 189 (condition-case () 190 (delete-file "emacs") 191 (file-error nil)) 192 ;; We used to dump under the name xemacs, but that occasionally 193 ;; confused people installing Emacs (they'd install the file 194 ;; under the name `xemacs'), and it's inconsistent with every 195 ;; other GNU product's build process. 196 (dump-emacs "emacs" "temacs") 197 ;; Recompute NAME now, so that it isn't set when we dump. 198 (if (not (eq system-type 'ms-dos)) 199 (let ((name (concat "emacs-" emacs-version))) 200 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 201 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 202 "-" 203 (substring name (match-end 0))))) 204 (add-name-to-file "emacs" name t))) 205 (kill-emacs))) 206 207;; Avoid error if user loads some more libraries now. 208(setq purify-flag nil) 209 210;; For machines with CANNOT_DUMP defined in config.h, 211;; this file must be loaded each time Emacs is run. 212;; So run the startup code now. 213 214(or (or (equal (nth 3 command-line-args) "dump") 215 (equal (nth 4 command-line-args) "dump")) 216 (eval top-level)) 217 218;;; loadup.el ends here 219