# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 897061783 0
# Node ID 6c112ffbcc9191f9669734ac6cb9a7f87d6fae0e
# Parent  e354812f332ecc071001fa493dc78f176730863b
Clean up mechanism for removing -l loadup from end.

diff -r e354812f332e -r 6c112ffbcc91 lisp/loadup.el
--- a/lisp/loadup.el	Fri Jun 05 15:48:37 1998 +0000
+++ b/lisp/loadup.el	Fri Jun 05 15:49:43 1998 +0000
@@ -251,13 +251,12 @@
 
 ;; For machines with CANNOT_DUMP defined in config.h,
 ;; this file must be loaded each time Emacs is run.
-;; So run the startup code now.
+;; So run the startup code now.  First, remove `-l loadup' from args.
 
-(or (equal (nth 3 command-line-args) "dump")
-    (equal (nth 4 command-line-args) "dump")
-    (progn
-      ;; Avoid loading loadup.el a second time!
-      (setq command-line-args (cdr (cdr command-line-args)))
-      (eval top-level)))
+(if (and (equal (nth 1 command-line-args) "-l")
+	 (equal (nth 2 command-line-args) "loadup"))
+    (setcdr command-line-args (nthcdr 3 command-line-args)))
+
+(eval top-level)
 
 ;;; loadup.el ends here