Commit 7fa26c0a authored by Karl Heuer's avatar Karl Heuer
Browse files

Clean up mechanism for removing -l loadup from end.

parent 0f4b266c
...@@ -251,13 +251,12 @@ ...@@ -251,13 +251,12 @@
;; For machines with CANNOT_DUMP defined in config.h, ;; For machines with CANNOT_DUMP defined in config.h,
;; this file must be loaded each time Emacs is run. ;; 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") (if (and (equal (nth 1 command-line-args) "-l")
(equal (nth 4 command-line-args) "dump") (equal (nth 2 command-line-args) "loadup"))
(progn (setcdr command-line-args (nthcdr 3 command-line-args)))
;; Avoid loading loadup.el a second time!
(setq command-line-args (cdr (cdr command-line-args))) (eval top-level)
(eval top-level)))
;;; loadup.el ends here ;;; loadup.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment