mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(Evaluating top-level): Don't load loadup.el again.

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-13 08:39:25 +00:00
parent d184839e4e
commit 0a4df5393f
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/loadup.el
View file

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