From 7fa26c0a283c0fb76c56fd913559e3188ca783b2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 5 Jun 1998 15:49:43 +0000 Subject: [PATCH] Clean up mechanism for removing -l loadup from end. --- lisp/loadup.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/loadup.el b/lisp/loadup.el index e94482647f5..d98eda2d526 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -251,13 +251,12 @@ ;; For machines with CANNOT_DUMP defined in config.h, ;; this file must be loaded each time Emacs is run. -;; So run the startup code now. +;; So run the startup code now. First, remove `-l loadup' from args. -(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))) +(if (and (equal (nth 1 command-line-args) "-l") + (equal (nth 2 command-line-args) "loadup")) + (setcdr command-line-args (nthcdr 3 command-line-args))) + +(eval top-level) ;;; loadup.el ends here -- 2.39.2