diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-01-06 04:36:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-01-06 04:36:22 +0000 |
commit | 931511f81d9c6f3ff0ddebd2affde3344b5dab7e (patch) | |
tree | 317ce2e905c21bf8e5435ec4d27e6809bcee9c94 /lisp/loadup.el | |
parent | 1fd57b82ad0ce6a0a70715459fe6176f1d7218a4 (diff) | |
download | emacs-931511f81d9c6f3ff0ddebd2affde3344b5dab7e.tar.gz |
[ms-dos]: Preload mouse.el, dos-fns.el,
disp-table.el, and ls-lisp. Dump only one version. Use simpler
name for doc file.
Diffstat (limited to 'lisp/loadup.el')
-rw-r--r-- | lisp/loadup.el | 37 |
1 files changed, 26 insertions, 11 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index dc0c393829b..a87190fb01f 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -94,6 +94,16 @@ (progn (garbage-collect) (load "vms-patch"))) +(if (eq system-type 'ms-dos) + (progn + (load "ls-lisp") + (garbage-collect) + (load "mouse") + (garbage-collect) + (load "dos-fns") + (garbage-collect) + (load "disp-table") ; needed to setup ibm-pc char set, see internal.el + (garbage-collect))) (if (fboundp 'atan) ; preload some constants and (progn ; floating pt. functions if (garbage-collect) ; we have float support. @@ -124,10 +134,12 @@ (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) - (setq name (concat (expand-file-name "../etc/DOC-") name)) - (if (file-exists-p name) - (delete-file name)) - (copy-file (expand-file-name "../etc/DOC") name t) + (if (eq system-type 'ms-dos) + (setq name (expand-file-name "../etc/DOC")) + (setq name (concat (expand-file-name "../etc/DOC-") name)) + (if (file-exists-p name) + (delete-file name)) + (copy-file (expand-file-name "../etc/DOC") name t)) (Snarf-documentation (file-name-nondirectory name))) (Snarf-documentation "DOC")) (message "Finding pointers to doc strings...done") @@ -153,7 +165,9 @@ (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) - (message "Dumping under names emacs and %s" name)) + (if (eq system-type 'ms-dos) + (message "Dumping under the name emacs") + (message "Dumping under names emacs and %s" name))) (condition-case () (delete-file "emacs") (file-error nil)) @@ -163,12 +177,13 @@ ;; other GNU product's build process. (dump-emacs "emacs" "temacs") ;; Recompute NAME now, so that it isn't set when we dump. - (let ((name (concat "emacs-" emacs-version))) - (while (string-match "[^-+_.a-zA-Z0-9]+" name) - (setq name (concat (downcase (substring name 0 (match-beginning 0))) - "-" - (substring name (match-end 0))))) - (add-name-to-file "emacs" name t)) + (if (not (eq system-type 'ms-dos)) + (let ((name (concat "emacs-" emacs-version))) + (while (string-match "[^-+_.a-zA-Z0-9]+" name) + (setq name (concat (downcase (substring name 0 (match-beginning 0))) + "-" + (substring name (match-end 0))))) + (add-name-to-file "emacs" name t))) (kill-emacs))) ;; Avoid error if user loads some more libraries now. |