Mercurial > emacs
comparison lisp/loadup.el @ 5459:ff128e39003b
[ms-dos]: Preload mouse.el, dos-fns.el,
disp-table.el, and ls-lisp. Dump only one version. Use simpler
name for doc file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Jan 1994 04:36:22 +0000 |
| parents | fc90a9d80b5f |
| children | 3f6777439468 |
comparison
equal
deleted
inserted
replaced
| 5458:0873b536e71d | 5459:ff128e39003b |
|---|---|
| 92 (load "buff-menu") | 92 (load "buff-menu") |
| 93 (if (eq system-type 'vax-vms) | 93 (if (eq system-type 'vax-vms) |
| 94 (progn | 94 (progn |
| 95 (garbage-collect) | 95 (garbage-collect) |
| 96 (load "vms-patch"))) | 96 (load "vms-patch"))) |
| 97 (if (eq system-type 'ms-dos) | |
| 98 (progn | |
| 99 (load "ls-lisp") | |
| 100 (garbage-collect) | |
| 101 (load "mouse") | |
| 102 (garbage-collect) | |
| 103 (load "dos-fns") | |
| 104 (garbage-collect) | |
| 105 (load "disp-table") ; needed to setup ibm-pc char set, see internal.el | |
| 106 (garbage-collect))) | |
| 97 (if (fboundp 'atan) ; preload some constants and | 107 (if (fboundp 'atan) ; preload some constants and |
| 98 (progn ; floating pt. functions if | 108 (progn ; floating pt. functions if |
| 99 (garbage-collect) ; we have float support. | 109 (garbage-collect) ; we have float support. |
| 100 (load "float-sup"))) | 110 (load "float-sup"))) |
| 101 (garbage-collect) | 111 (garbage-collect) |
| 122 (let ((name emacs-version)) | 132 (let ((name emacs-version)) |
| 123 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | 133 (while (string-match "[^-+_.a-zA-Z0-9]+" name) |
| 124 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | 134 (setq name (concat (downcase (substring name 0 (match-beginning 0))) |
| 125 "-" | 135 "-" |
| 126 (substring name (match-end 0))))) | 136 (substring name (match-end 0))))) |
| 127 (setq name (concat (expand-file-name "../etc/DOC-") name)) | 137 (if (eq system-type 'ms-dos) |
| 128 (if (file-exists-p name) | 138 (setq name (expand-file-name "../etc/DOC")) |
| 129 (delete-file name)) | 139 (setq name (concat (expand-file-name "../etc/DOC-") name)) |
| 130 (copy-file (expand-file-name "../etc/DOC") name t) | 140 (if (file-exists-p name) |
| 141 (delete-file name)) | |
| 142 (copy-file (expand-file-name "../etc/DOC") name t)) | |
| 131 (Snarf-documentation (file-name-nondirectory name))) | 143 (Snarf-documentation (file-name-nondirectory name))) |
| 132 (Snarf-documentation "DOC")) | 144 (Snarf-documentation "DOC")) |
| 133 (message "Finding pointers to doc strings...done") | 145 (message "Finding pointers to doc strings...done") |
| 134 | 146 |
| 135 ;Note: You can cause additional libraries to be preloaded | 147 ;Note: You can cause additional libraries to be preloaded |
| 151 (let ((name (concat "emacs-" emacs-version))) | 163 (let ((name (concat "emacs-" emacs-version))) |
| 152 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | 164 (while (string-match "[^-+_.a-zA-Z0-9]+" name) |
| 153 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | 165 (setq name (concat (downcase (substring name 0 (match-beginning 0))) |
| 154 "-" | 166 "-" |
| 155 (substring name (match-end 0))))) | 167 (substring name (match-end 0))))) |
| 156 (message "Dumping under names emacs and %s" name)) | 168 (if (eq system-type 'ms-dos) |
| 169 (message "Dumping under the name emacs") | |
| 170 (message "Dumping under names emacs and %s" name))) | |
| 157 (condition-case () | 171 (condition-case () |
| 158 (delete-file "emacs") | 172 (delete-file "emacs") |
| 159 (file-error nil)) | 173 (file-error nil)) |
| 160 ;; We used to dump under the name xemacs, but that occasionally | 174 ;; We used to dump under the name xemacs, but that occasionally |
| 161 ;; confused people installing Emacs (they'd install the file | 175 ;; confused people installing Emacs (they'd install the file |
| 162 ;; under the name `xemacs'), and it's inconsistent with every | 176 ;; under the name `xemacs'), and it's inconsistent with every |
| 163 ;; other GNU product's build process. | 177 ;; other GNU product's build process. |
| 164 (dump-emacs "emacs" "temacs") | 178 (dump-emacs "emacs" "temacs") |
| 165 ;; Recompute NAME now, so that it isn't set when we dump. | 179 ;; Recompute NAME now, so that it isn't set when we dump. |
| 166 (let ((name (concat "emacs-" emacs-version))) | 180 (if (not (eq system-type 'ms-dos)) |
| 167 (while (string-match "[^-+_.a-zA-Z0-9]+" name) | 181 (let ((name (concat "emacs-" emacs-version))) |
| 168 (setq name (concat (downcase (substring name 0 (match-beginning 0))) | 182 (while (string-match "[^-+_.a-zA-Z0-9]+" name) |
| 169 "-" | 183 (setq name (concat (downcase (substring name 0 (match-beginning 0))) |
| 170 (substring name (match-end 0))))) | 184 "-" |
| 171 (add-name-to-file "emacs" name t)) | 185 (substring name (match-end 0))))) |
| 186 (add-name-to-file "emacs" name t))) | |
| 172 (kill-emacs))) | 187 (kill-emacs))) |
| 173 | 188 |
| 174 ;; Avoid error if user loads some more libraries now. | 189 ;; Avoid error if user loads some more libraries now. |
| 175 (setq purify-flag nil) | 190 (setq purify-flag nil) |
| 176 | 191 |