(defvar default-load-path load-path)

(defun switch-to-cmd-buffer nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil switch-to-buffer "*cmd*"] 2))

(defun switch-to-last-buffer nil (interactive) (byte-code "ÀˆÁÀ!‡" [nil switch-to-buffer] 2))

(defun switch-to-olcr-list nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil switch-to-buffer "*OLCR List*"] 2))

(defun chip nil (interactive) (byte-code "ÈÄÅ!ˆÆÇ!ˆÈÉÊ	Ë
%!‡" [scheme-program-name scheme-program-arguments scheme-band-name nil shell-command "/bin/athena/attach -n -h 6.001 scheme>/dev/null 2>&1" load "/mit/6.001/chipmunk.el" run-scheme concat " " " -band "] 9))

(setq load-path (append (list (expand-file-name "~/lib/emacs/elisp")) default-load-path (list "/afs/sipb.mit.edu/contrib/emacs/elisp" "/afs/athena.mit.edu/user/k/kkkken/elisp" "/mit/watchmaker/lib/elisp" "/usr/sipb/lib/elisp" "/mit/consult/elisp" "/afs/athena.mit.edu/user/b/bjaspan")))

(load "zwrite")

(load "zlog")

(load "cmd")

(load "rcs")

(load "rmail")

(load "sendmail")

(load "rmail-hacks")

(setq wico-show-ml "number")

(load "wicos")

(load "fascist")

(load "cmu-zephyr")

(setq-default mode-line-modified (quote ("-%1*")))

(setq-default mode-line-buffer-identification (quote ("%b")))

(setq gnus-show-all-headers t default-mode-line-format (list "" (quote mode-line-modified) (system-name) ":" (quote mode-line-buffer-identification) " " (quote global-mode-string) "%[(" (quote mode-name) minor-mode-alist "%n" (quote mode-line-process) ")%]-" (quote (-3 . "%p")) "-%-") text-mode-hook (quote turn-on-auto-fill) rmail-ignored-headers nil rmail-file-name "~/rmail/inbox" rmail-last-file "~/rmail/inbox" rmail-last-rmail-file "~/rmail/inbox" mail-header-file "~/lib/emacs/mailheader" mail-setup-hook (function (lambda nil (turn-on-auto-fill) (save-excursion (if to (forward-line -1) (forward-line 2)) (insert-file mail-header-file)))) truncate-partial-width-windows nil shell-file-name "/bin/sh" make-backup-files nil display-time-24hr-format t zwrite-hook (quote turn-on-auto-fill) zwrite-signature "starlight on a moonless night" Info-directory "~/lib/emacs/info" Info-enable-edit t c-indent-level 2 c-continued-statement-offset 2 c-brace-offset 0 c-brace-imaginary-offset 0 c-argdecl-indent 5 c-label-offset -2 cmd-shell-name "rc" cmd-shell-args (quote ("-l")) cmd-remember-working-directory nil olcr-startup-hook (quote (lambda nil (olcr-start-zclient))) olcr-input-mode-hook (quote (lambda nil (turn-on-auto-fill))) olcr-zclient-beep-on-new-questions nil)

(setq-default fill-column 72)

(setq auto-mode-alist (quote (("\\.el$" . emacs-lisp-mode) ("\\.text$" . text-mode) ("\\.c$" . c-mode) ("\\.h$" . c-mode) ("\\.scm$" . scheme-mode) ("\\.pl$" . perl-mode) ("\\.clu$" . clu-mode) ("\\.tex$" . LaTeX-mode) ("\\.TeX$" . TeX-mode) ("\\.sty$" . LaTeX-mode) ("\\.bbl$" . LaTeX-mode) ("Makefile*" . fundamental-mode) ("\\.y$" . c-mode) ("\\.texinfo$" . texinfo-mode) ("\\.l$" . lisp-mode) ("\\.lisp$" . lisp-mode) ("[]>:/]\\..*emacs" . emacs-lisp-mode) ("\\.gwm" . lisp-mode) ("\\.f$" . fortran-mode) ("\\.mss$" . scribe-mode))))

(put (quote eval-expression) (quote disabled) nil)

(global-set-key "Í" (quote rmail))

(global-set-key "m" (quote rmail-mail))

(global-set-key "à" (quote bury-buffer))

(global-set-key "×i" (quote zwrite-instance))

(global-set-key "×p" (quote zwrite-personal))

(global-set-key "×c" (quote zwrite-class))

(global-set-key "×w" (quote zwrite-i-white-magic))

(global-set-key "×h" (quote zwrite-i-help))

(global-set-key "×s" (quote zwrite-i-sipb))

(global-set-key "×f" (quote zwrite-i-fenway))

(global-set-key "Ú" (quote zlog-goto))

(global-set-key "Ï" (quote switch-to-olcr-list))

(global-set-key "Ã" (quote switch-to-cmd-buffer))

(global-set-key "Â" (quote switch-to-last-buffer))

(setq esc-lbr-map (make-sparse-keymap))

(global-set-key "Û" esc-lbr-map)

(global-set-key "Û11~" (quote wico-jump-1))

(global-set-key "Û12~" (quote wico-jump-2))

(global-set-key "Û13~" (quote wico-jump-3))

(global-set-key "Û14~" (quote wico-jump-4))

(global-set-key "Û15~" (quote wico-jump-5))

(global-set-key "Û17~" (quote wico-jump-6))

(global-set-key "Û18~" (quote wico-jump-7))

(global-set-key "Û19~" (quote wico-jump-8))

(global-set-key "Û20~" (quote wico-jump-9))

(global-set-key "Û21~" (quote wico-jump-0))

(put (quote narrow-to-region) (quote disabled) nil)

(autoload (quote gnus) "/afs/sipb.mit.edu/project/sipb/lib/elisp/gnus" "\
gnus" t)

(autoload (quote zwgc) "/afs/athena.mit.edu/user/b/bjaspan/elisp/zwgc" "\
Start emacs zwgc mode" t nil)

(autoload (quote perl-mode) "/afs/athena.mit.edu/contrib/perl/elisp/perl-mode" "\
perl mode" t)

(autoload (quote olh) "/afs/athena.mit.edu/contrib/consult/elisp/olh.elc" "\
olh mode" t)

(autoload (quote olcr-list) "/afs/athena.mit.edu/astaff/project/eolcdev/Emacs/olcr.elc" "\
olcr client" t)

(wico-create-new)

(cmd-start)

(switch-to-buffer "*cmd*")

(wico-create-new)

(wico-jump-1)

(server-start)

(if window-system (x-set-title (concat "emacs: " (system-name))))