Mercurial > emacs

diff lisp/loadup.el @ 9515:64a4d29fb831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Evaluating top-level): Don't load loadup.el again.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 Oct 1994 08:39:25 +0000
parents b2aaf43191aa
children 6cf77973c97f
line wrap: on
line diff
--- a/lisp/loadup.el	Thu Oct 13 08:18:10 1994 +0000
+++ b/lisp/loadup.el	Thu Oct 13 08:39:25 1994 +0000
@@ -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