diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-13 08:39:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-13 08:39:25 +0000 |
| commit | a3b96021359002cd89a575320b40c9bae2ab531a (patch) | |
| tree | 525f91d276f769cac42f6b6193b25d5f0b6997a3 /lisp/loadup.el | |
| parent | 28576cd1a60d054d5e39922bb8002a46af465703 (diff) | |
| download | emacs-a3b96021359002cd89a575320b40c9bae2ab531a.tar.gz | |
(Evaluating top-level): Don't load loadup.el again.
Diffstat (limited to 'lisp/loadup.el')
| -rw-r--r-- | lisp/loadup.el | 9 |
1 files changed, 6 insertions, 3 deletions
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 |