
(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 "ѓ
 ЖЗ!‚( Б‰€
И=?… ЙК!…\" ЛЙК!!‰€МЋН )‡" [command-line-processed t system-type default-directory term-setup-hook window-setup-hook message "Back to top level." vax-vms getenv "PWD" file-name-as-directory ((byte-code "… В!€	… В	!‡" [term-setup-hook window-setup-hook funcall] 3)) command-line] 6))

(defun command-line nil (byte-code "	Aѓ
 Д‚ Н Д
… О
П \"… Р‰€?…& …k @СТ\"†: СУ\"ѓF ДA‰‚f СФ\"†S СХ\"ѓc A@A‰‚f З‰)€‚  €ЦЧШЏ€ЩЪ!…Ђ ЉЪq€Ы!)€	…Щ ?…Щ 
ѓџ Ь	Э
!ЮQЗЗ#‚Щ Яа!Д…¶ Ь	PЗЗ#?…Ш бв\"‰ѓР гO‰‚Ф Д‰€‚§ *€д!€…е еЗ!+‡" [args command-line-args init noninteractive nil done argi t 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" error (byte-code "…$ Ж	З=ѓ И‚ ЙКQВВВ$€†$ ЕЖЛВВ#)‡" [init system-type t inhibit-default-init inhibit-startup-message nil load vax-vms "sys$login:.emacs" "~" "/.emacs" "default"] 5) ((error (byte-code "АБ!‡" [message "Error in init file"] 2))) get-buffer "*scratch*" funcall load symbol-name "-win" getenv "TERM" string-match "[-_][^-_]+$" 0 command-line-1 kill-emacs] 18))

(defun command-line-1 (command-line-args-left) (byte-code "?ѓ‚ 	?… 
?… ОП Р\"… С ?… …$ Т!€Д‰€…0 Т!€Д‰€УЋФХ Ц\"€ЧШ!Щ=…j ЧЪ!Ы=…j ЧЬ!Э=…j ЧЮ!Я=…j Ча!б=…j Чв!г=ѓr дc‚v еж!c€зД!€ий!)‚lк…k@Д
	A‰€л	\"‰
ѓЇ Т
A	\"‚fм	н\"†Д м	о\"†Д м	п\"ѓЫ р@!‰
€A‰€Т
!‚fм	с\"†и м	т\"ѓ@уф!!…я ф!‰€хДН#)€A‰‚fм	ц\"†м	ч\"ѓ+ш@!€A‰‚fм	щ\"ѓ9ъН!‚fыь	\"ѓKэ	!‰‚fюф	\"!€я!†aЃ@ !€к‰*€‚‰ *‡" [command-line-args-left inhibit-startup-message noninteractive term-setup-hook nil window-setup-hook dir default-directory line argi tem command-switch-alist file t string= buffer-name "*scratch*" input-pending-p funcall ((byte-code "ЉБВ!q€Г €ДА!)‡" [nil get-buffer "*scratch*" erase-buffer set-buffer-modified-p] 4)) insert emacs-version "
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))