
(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)

(if (boundp (quote epoch::version)) (defvar epoch-setup-hook nil "Standard file initialization hooks"))

(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 "ѓ
 ЖЗ!‚2 Б‰€
И=?… ЙК!…\" ЛЙК!!‰€МЋНО!…. ПР!€С )‡" [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)) boundp epoch::version run-hooks epoch-setup-hook command-line] 8))

(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 inhibit-initial-screen-mapping 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 boundp epoch::version epoch::screen-mapped-p 1 epoch::mapraised-screen epoch::do-titles load symbol-name "-win" getenv "TERM" string-match "[-_][^-_]+$" 0 command-line-1 kill-emacs] 23))

(defun command-line-1 (command-line-args-left) (byte-code "О €?ѓ… 	?… 
?… ПР С\"… О ?…‚ …' Т!€Д‰€…3 Т!€Д‰€УЋФХ Ц\"€ЧШ!Щ=…m ЧЪ!Ы=…m ЧЬ!Э=…m ЧЮ!Я=…m Ча!б=…m Чв!г=ѓu дc‚y еж!c€зД!€ий!)‚oк…n@Д
	A‰€л	\"‰
ѓІ Т
A	\"‚iм	н\"†З м	о\"†З м	п\"ѓЮ р@!‰
€A‰€Т
!‚iм	с\"†л м	т\"ѓ@уф!!…ф!‰€хДН#)€A‰‚iм	ц\"†м	ч\"ѓ.ш@!€A‰‚iм	щ\"ѓ<ъН!‚iыь	\"ѓNэ	!‰‚iюф	\"!€я!†dЃ@ !€к‰*€‚Њ *‡" [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 input-pending-p string= buffer-name "*scratch*" 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.)

Epoch comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
Epoch is based on GNU Emacs 18.58.
Epoch modifications to GNU Emacs were made by the Epoch Development Team
  at the University of Illinois at Urbana-Champaign.

You may give out copies of Epoch; 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 Epoch." substitute-command-keys "Type \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)

Epoch comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
Epoch is based on GNU Emacs 18.58.

You may give out copies of Epoch; 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] 44))