# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764715469 0
# Node ID fd0c4b42a63be05fde3e404fe7e1e08b5aae7516
# Parent  b705afc2b2ec297423abeabbda1def49ec2a53c7
Don't test for presence of dump-emacs.
Use `dump' argument as criterion for copying DOC, for running
top-level, and for extending the version number.
Delete the sleep-for.

diff -r b705afc2b2ec -r fd0c4b42a63b lisp/loadup.el
--- a/lisp/loadup.el	Sat Mar 26 05:53:18 1994 +0000
+++ b/lisp/loadup.el	Sat Mar 26 20:57:49 1994 +0000
@@ -28,7 +28,6 @@
 ;;; Code:
 
 (message "Using load-path %s" load-path)
-(sleep-for 1)
 
 ;;; We don't want to have any undo records in the dumped Emacs.
 (buffer-disable-undo "*scratch*")
@@ -137,7 +136,9 @@
 
 ;; Determine which last version number to use
 ;; based on the executables that now exist.
-(if (and (fboundp 'dump-emacs) (not (eq system-type 'ms-dos)))
+(if (and (or (equal (nth 3 command-line-args) "dump")
+	     (equal (nth 4 command-line-args) "dump"))
+	 (not (eq system-type 'ms-dos)))
     (let* ((base (concat "emacs-" emacs-version))
 	   (files (file-name-all-completions base default-directory))
 	   (versions (mapcar (function (lambda (name)
@@ -155,7 +156,8 @@
 ;; for DOC will not have doc strings in the dumped Emacs.
 
 (message "Finding pointers to doc strings...")
-(if (fboundp 'dump-emacs)
+(if (or (equal (nth 3 command-line-args) "dump")
+	(equal (nth 4 command-line-args) "dump"))
     (let ((name emacs-version))
       (while (string-match "[^-+_.a-zA-Z0-9]+" name)
 	(setq name (concat (downcase (substring name 0 (match-beginning 0)))
@@ -220,7 +222,8 @@
 ;; this file must be loaded each time Emacs is run.
 ;; So run the startup code now.
 
-(or (fboundp 'dump-emacs)
+(or (or (equal (nth 3 command-line-args) "dump")
+	(equal (nth 4 command-line-args) "dump"))
     (eval top-level))
 
 ;;; loadup.el ends here