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 |