Mercurial > emacs

comparison lisp/loadup.el @ 9752:113f20118cc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Load facemenu if have X. After dumping, print number of pure bytes used.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Oct 1994 10:40:31 +0000
parents b36d5e88cccc
children 7d8fc4b4f60d
comparison
equal deleted inserted replaced
9751:9eed4c624caa 9752:113f20118cc3
54 (progn 54 (progn
55 (load "frame") 55 (load "frame")
56 (load "mouse") 56 (load "mouse")
57 (garbage-collect) 57 (garbage-collect)
58 (load "faces") 58 (load "faces")
59 (load "facemenu")
59 (garbage-collect) 60 (garbage-collect)
60 (load "menu-bar") 61 (load "menu-bar")
61 (load "scroll-bar") 62 (load "scroll-bar")
62 (load "select"))) 63 (load "select")))
63 (garbage-collect) 64 (garbage-collect)
201 ;; We used to dump under the name xemacs, but that occasionally 202 ;; We used to dump under the name xemacs, but that occasionally
202 ;; confused people installing Emacs (they'd install the file 203 ;; confused people installing Emacs (they'd install the file
203 ;; under the name `xemacs'), and it's inconsistent with every 204 ;; under the name `xemacs'), and it's inconsistent with every
204 ;; other GNU product's build process. 205 ;; other GNU product's build process.
205 (dump-emacs "emacs" "temacs") 206 (dump-emacs "emacs" "temacs")
207 (message "%d pure bytes used" pure-bytes-used)
206 ;; Recompute NAME now, so that it isn't set when we dump. 208 ;; Recompute NAME now, so that it isn't set when we dump.
207 (if (not (eq system-type 'ms-dos)) 209 (if (not (eq system-type 'ms-dos))
208 (let ((name (concat "emacs-" emacs-version))) 210 (let ((name (concat "emacs-" emacs-version)))
209 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 211 (while (string-match "[^-+_.a-zA-Z0-9]+" name)
210 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 212 (setq name (concat (downcase (substring name 0 (match-beginning 0)))