Mercurial > emacs
comparison lisp/loadup.el @ 66491:30626d7732c1
("facemenu"): Load unconditionally.
("image", "international/fontset", "dnd", "mwheel", "tool-bar"):
("x-dnd"): Load, when appropriate.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 28 Oct 2005 16:17:01 +0000 |
parents | 41bb365f41c4 |
children | 621fdbc28285 |
comparison
equal
deleted
inserted
replaced
66490:7179660b21c9 | 66491:30626d7732c1 |
---|---|
131 (load "window") | 131 (load "window") |
132 (load "frame") | 132 (load "frame") |
133 (load "term/tty-colors") | 133 (load "term/tty-colors") |
134 (load "font-core") | 134 (load "font-core") |
135 | 135 |
136 (if (fboundp 'frame-face-alist) | 136 (load "facemenu") |
137 (progn | |
138 (load "facemenu"))) | |
139 (if (fboundp 'track-mouse) | 137 (if (fboundp 'track-mouse) |
140 (progn | 138 (progn |
141 (load "mouse") | 139 (load "mouse") |
142 (and (boundp 'x-toolkit-scroll-bars) | 140 (and (boundp 'x-toolkit-scroll-bars) |
143 (load "scroll-bar")) | 141 (load "scroll-bar")) |
162 (if (eq system-type 'vax-vms) | 160 (if (eq system-type 'vax-vms) |
163 (progn | 161 (progn |
164 (load "vmsproc"))) | 162 (load "vmsproc"))) |
165 (load "abbrev") | 163 (load "abbrev") |
166 (load "buff-menu") | 164 (load "buff-menu") |
165 | |
166 (if (fboundp 'x-create-frame) | |
167 (progn | |
168 (load "image") | |
169 (load "international/fontset") | |
170 (load "dnd") | |
171 (load "mwheel") | |
172 (load "tool-bar"))) | |
173 (if (featurep 'x) | |
174 (load "x-dnd")) | |
175 (message "%s" (garbage-collect)) | |
176 | |
167 (if (eq system-type 'vax-vms) | 177 (if (eq system-type 'vax-vms) |
168 (progn | 178 (progn |
169 (load "vms-patch"))) | 179 (load "vms-patch"))) |
170 (if (eq system-type 'windows-nt) | 180 (if (eq system-type 'windows-nt) |
171 (progn | 181 (progn |
193 | 203 |
194 (load "vc-hooks") | 204 (load "vc-hooks") |
195 (load "jka-cmpr-hook") | 205 (load "jka-cmpr-hook") |
196 (load "ediff-hook") | 206 (load "ediff-hook") |
197 (if (fboundp 'x-show-tip) (load "tooltip")) | 207 (if (fboundp 'x-show-tip) (load "tooltip")) |
208 | |
198 (message "%s" (garbage-collect)) | 209 (message "%s" (garbage-collect)) |
199 | 210 |
200 ;If you want additional libraries to be preloaded and their | 211 ;If you want additional libraries to be preloaded and their |
201 ;doc strings kept in the DOC file rather than in core, | 212 ;doc strings kept in the DOC file rather than in core, |
202 ;you may load them with a "site-load.el" file. | 213 ;you may load them with a "site-load.el" file. |