
(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 `args'.")

(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 "ƒ
 ÄÅ!‚ Á‰ˆÆŽÇ )‡" [command-line-processed t term-setup-hook window-setup-hook message "Back to top level." ((byte-code "… Â!ˆ	… Â	!‡" [term-setup-hook window-setup-hook funcall] 3)) command-line] 3))

(defun command-line nil (byte-code "	Aƒ
 Ä‚ Ð Ä
… Ñ
Ò \"… Ó‰ˆ?…& …k @ÔÕ\"†: ÔÖ\"ƒF ÄA‰‚f Ô×\"†S ÔØ\"ƒc A@A‰‚f Ç‰)ˆ‚  ˆ
…“ ÙÚ=ƒ| Û‚€ Ü
ÝQÇÇÇ$ˆ	†“ Ä
ÙÞÇÇ#)ˆßà!…£ Šàqˆá!)ˆ…ü ?…ü ƒÂ Ùâ!ãQÇÇ#‚ü äå!Ä…Ù ÙPÇÇ#?…û æç\"‰ƒó èO‰‚÷ Ä‰ˆ‚Ê *ˆé!ˆ…êÇ!+‡" [args command-line-args init noninteractive nil done argi t system-type inhibit-default-init inhibit-startup-message initial-major-mode term-file-prefix window-system term hyphend user-login-name string= user-real-login-name "" string-equal "-q" "-no-init-file" "-u" "-user" load vax-vms "sys$login:.emacs" "~" "/.emacs" "default" get-buffer "*scratch*" funcall symbol-name "-win" getenv "TERM" string-match "[-_][^-_]+$" 0 command-line-1 kill-emacs] 20))

(defun command-line-1 (command-line-args-left) (byte-code "?ƒ‚ 	?… 
?… ÎÏ Ð\"… Ñ ?… …$ Ò!ˆÄ‰ˆ…0 Ò!ˆÄ‰ˆÓŽÔÕ Ö\"ˆ×Ø!Ù=…j ×Ú!Û=…j ×Ü!Ý=…j ×Þ!ß=…j ×à!á=…j ×â!ã=ƒr äc‚v åæ!cˆçÄ!ˆèé!)‚\\ê…[@Ä
	A‰ˆë	\"‰
ƒ¯ Ò
A	\"‚Vì	í\"†Ä ì	î\"†Ä ì	ï\"ƒÛ ð@!‰
ˆA‰ˆÒ
!‚Vì	ñ\"†è ì	ò\"ƒBó@ÄÍ#)ˆA‰‚Vì	ô\"†ì	õ\"ƒö@!ˆA‰‚Vì	÷\"ƒ+øÍ!‚Vùú	\"ƒ=û	!‰‚Vüý	\"!ˆþ!†Qÿ!ˆê‰*ˆ‚‰ *‡" [command-line-args-left inhibit-startup-message noninteractive term-setup-hook nil window-setup-hook dir default-directory line argi tem command-switch-alist load-path t string= buffer-name "*scratch*" input-pending-p funcall ((byte-code "Á ˆÂÀ!‡" [nil erase-buffer set-buffer-modified-p] 3)) insert emacs-version "
Copyright (C) 1988 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" load "-i" "-insert" insert-file-contents "-kill" kill-emacs string-match "^\\+[0-9]+\\'" string-to-int find-file expand-file-name zerop goto-line] 40))