From a3b96021359002cd89a575320b40c9bae2ab531a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Oct 1994 08:39:25 +0000 Subject: (Evaluating top-level): Don't load loadup.el again. --- lisp/loadup.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/loadup.el') 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 -- cgit v1.2.1