Mercurial > emacs
comparison lisp/loadup.el @ 8184:8ccef13ebe58
(current-load-list): Set it to nil.
If have frames, load `faces'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 09 Jul 1994 19:04:27 +0000 |
parents | fb05d6911dcc |
children | 973eafd9f349 |
comparison
equal
deleted
inserted
replaced
8183:d35fd7fd0ef8 | 8184:8ccef13ebe58 |
---|---|
52 (garbage-collect) | 52 (garbage-collect) |
53 (if (fboundp 'delete-frame) | 53 (if (fboundp 'delete-frame) |
54 (progn | 54 (progn |
55 (load "frame") | 55 (load "frame") |
56 (load "mouse") | 56 (load "mouse") |
57 (garbage-collect) | |
58 (load "faces") | |
57 (garbage-collect) | 59 (garbage-collect) |
58 (load "menu-bar") | 60 (load "menu-bar") |
59 (load "scroll-bar") | 61 (load "scroll-bar") |
60 (load "select"))) | 62 (load "select"))) |
61 (garbage-collect) | 63 (garbage-collect) |
164 | 166 |
165 ;Note: You can cause additional libraries to be preloaded | 167 ;Note: You can cause additional libraries to be preloaded |
166 ;by writing a site-init.el that loads them. | 168 ;by writing a site-init.el that loads them. |
167 ;See also "site-load" above. | 169 ;See also "site-load" above. |
168 (load "site-init" t) | 170 (load "site-init" t) |
171 (setq current-load-list nil) | |
169 (garbage-collect) | 172 (garbage-collect) |
170 | 173 |
171 ;;; At this point, we're ready to resume undo recording for scratch. | 174 ;;; At this point, we're ready to resume undo recording for scratch. |
172 (buffer-enable-undo "*scratch*") | 175 (buffer-enable-undo "*scratch*") |
173 | 176 |