From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Oct 1994 08:39:25 +0000 (+0000)
Subject: (Evaluating top-level): Don't load loadup.el again.
X-Git-Tag: emacs-19.34~6339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a4df5393f9f88fa26877bd5ad6992a1d4d52f1f;p=emacs.git

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

diff --git a/lisp/loadup.el b/lisp/loadup.el
index a1252eca989..0170e0f7cce 100644
--- 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