Mercurial > emacs
comparison lisp/loadup.el @ 83588:46d454fde388
Only load x-dnd and x-win when X is compiled in.
Load w32-win and dependencies on windows-nt.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Tue, 15 May 2007 23:21:42 +0000 |
| parents | b8d9a391daf3 |
| children | 5da6a46ddbd6 |
comparison
equal
deleted
inserted
replaced
| 83587:6046e2e69b86 | 83588:46d454fde388 |
|---|---|
| 177 (load "fringe") | 177 (load "fringe") |
| 178 (load "image") | 178 (load "image") |
| 179 (load "international/fontset") | 179 (load "international/fontset") |
| 180 (load "dnd") | 180 (load "dnd") |
| 181 (load "mwheel") | 181 (load "mwheel") |
| 182 (load "tool-bar") | 182 (load "tool-bar"))) |
| 183 (if (featurep 'x) | |
| 184 (progn | |
| 183 (load "x-dnd") | 185 (load "x-dnd") |
| 184 (load "term/x-win"))) | 186 (load "term/x-win"))) |
| 187 | |
| 185 (message "%s" (garbage-collect)) | 188 (message "%s" (garbage-collect)) |
| 186 | 189 |
| 187 (if (eq system-type 'vax-vms) | 190 (if (eq system-type 'vax-vms) |
| 188 (progn | 191 (progn |
| 189 (load "vms-patch"))) | 192 (load "vms-patch"))) |
| 190 (if (eq system-type 'windows-nt) | 193 (if (eq system-type 'windows-nt) |
| 191 (progn | 194 (progn |
| 195 (load "international/ccl") | |
| 196 (load "international/code-pages") | |
| 197 (load "term/w32-win") | |
| 192 (load "ls-lisp") | 198 (load "ls-lisp") |
| 193 (load "disp-table") ; needed to setup ibm-pc char set, see internal.el | 199 (load "disp-table") ; needed to setup ibm-pc char set, see internal.el |
| 194 (load "dos-w32") | 200 (load "dos-w32") |
| 195 (load "w32-vars") | 201 (load "w32-vars") |
| 196 (load "w32-fns"))) | 202 (load "w32-fns"))) |