Mercurial > emacs

changeset 5459:ff128e39003b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 0873b536e71d
children 3bd42ee22d1f
files lisp/loadup.el
diffstat 1 files changed, 26 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/loadup.el	Thu Jan 06 04:35:56 1994 +0000
+++ b/lisp/loadup.el	Thu Jan 06 04:36:22 1994 +0000
@@ -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.