procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up mechanism for removing -l loadup from end.

Browse source
This commit is contained in:
Karl Heuer 1998-06-05 15:49:43 +00:00
parent 0f4b266c2a
commit 7fa26c0a28
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/loadup.el
View file

@ -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