Mercurial > emacs

changeset 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 5617d313ea94
children 48a47a2673a5
files lisp/loadup.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
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