Mercurial > emacs
changeset 6540:fd0c4b42a63b
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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Mar 1994 20:57:49 +0000 |
| parents | b705afc2b2ec |
| children | e42af7949b19 |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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