(Evaluating top-level): Don't load loadup.el again.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index a1252eca9897f66b4f5265eed1073caa20a6edbb..0170e0f7cce56ae61235e336422307f10ce5bcc5 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -235,8 +235,11 @@
 ;; this file must be loaded each time Emacs is run.
 ;; So run the startup code now.
 
-(or (or (equal (nth 3 command-line-args) "dump")
-       (equal (nth 4 command-line-args) "dump"))
-    (eval top-level))
+(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)))
 
 ;;; loadup.el ends here