comparison lisp/loadup.el @ 9515:64a4d29fb831

(Evaluating top-level): Don't load loadup.el again.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 Oct 1994 08:39:25 +0000
parents b2aaf43191aa
children 6cf77973c97f
comparison
equal deleted inserted replaced
9514:5617d313ea94 9515:64a4d29fb831
233 233
234 ;; For machines with CANNOT_DUMP defined in config.h, 234 ;; For machines with CANNOT_DUMP defined in config.h,
235 ;; this file must be loaded each time Emacs is run. 235 ;; this file must be loaded each time Emacs is run.
236 ;; So run the startup code now. 236 ;; So run the startup code now.
237 237
238 (or (or (equal (nth 3 command-line-args) "dump") 238 (or (equal (nth 3 command-line-args) "dump")
239 (equal (nth 4 command-line-args) "dump")) 239 (equal (nth 4 command-line-args) "dump")
240 (eval top-level)) 240 (progn
241 ;; Avoid loading loadup.el a second time!
242 (setq command-line-args (cdr (cdr command-line-args)))
243 (eval top-level)))
241 244
242 ;;; loadup.el ends here 245 ;;; loadup.el ends here