(setq top-level (quote (normal-top-level)))

(defvar command-line-processed nil "\
t once command line has been processed")

(defconst inhibit-startup-message nil "\
*Non-nil inhibits the initial startup messages.
This is for use in your personal init file, once you are familiar
with the contents of the startup message.")

(defconst inhibit-default-init nil "\
*Non-nil inhibits loading the `default' library.")

(defconst command-switch-alist nil "\
Alist of command-line switches.
Elements look like (SWITCH-STRING . HANDLER-FUNCTION).
HANDLER-FUNCTION receives switch name as sole arg;
remaining command-line args are in the variable `command-line-args-left'.")

(defvar term-setup-hook nil "\
Function to be called after loading terminal-specific lisp code.
It is called with no arguments.  You can use this to override the
definitions made by the terminal-specific file.")

(defvar window-setup-hook nil)

(defconst initial-major-mode (quote lisp-interaction-mode) "\
Major mode command symbol to use for the initial *scratch* buffer.")

(defun normal-top-level nil (byte-code "f

E=?.+

(defun command-line nil (byte-code "	Af

.
I \".
fY
!TQCC#,U

(defun command-line-1 (command-line-args-left) (byte-code "?f,
?.
	A%^e	\"%
f-
A	\",f
i	i\"+A
^A%^O
!,f
i	n\"+e
Copyright (C) 1990 Free Software Foundation, Inc.
" key-binding "" help-command "u" advertised-undo "" describe-copying "" describe-distribution "" describe-no-warranty "t" help-with-tutorial "Type C-h for help; C-x u to undo changes.  (`C-' means use CTRL key.)

GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
You may give out copies of Emacs; type C-h C-c to see the conditions.
Type C-h C-d for information on getting the latest version.
Type C-h t for a tutorial on using Emacs." substitute-command-keys "Type \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)

GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
Type \\[describe-distribution] for information on getting the latest version.
Type \\[help-with-tutorial] for a tutorial on using Emacs." set-buffer-modified-p sit-for 120 0 assoc string-equal "-f" "-funcall" "-e" intern "-l" "-load" file-exists-p expand-file-name load "-i" "-insert" insert-file-contents "-kill" kill-emacs string-match "^\\+[0-9]+\\'" string-to-int find-file zerop goto-line] 43))
.