
(defvar tex-compile-keymap (make-sparse-keymap))

(defvar *TeX-Printer* nil)

(progn (define-key tex-compile-keymap " " (quote tex-remove-window)) (define-key tex-compile-keymap "k" (quote kill-tex-buffer)) (define-key tex-compile-keymap "p" (quote tex-preview-file)) (define-key tex-compile-keymap "l" (quote tex-lpr-file)))

(defun tex (&optional progname) (interactive) (byte-code "ÄˆÅ ˆÆ ˆÇ ÈÉ!ˆÊ	!ˆËÂ!ˆ‰ˆÌÍÎp†$ Ï$Ð\"ˆÑÒ!)‡" [file tex-compile-keymap tex-filename progname nil save-buffer kill-tex-buffer buffer-file-name switch-to-buffer-other-window "*TeX*" use-local-map make-local-variable set-process-sentinel start-process "TeX" "/usr/athena/tex" tex-sentinel message "Press SPACE to remove this window, or `k' to stop TeX process."] 12))

(defun latex nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil tex "/usr/athena/latex"] 2))

(defun tex-sentinel (process status) (byte-code "Â ˆÃÄÅÆ!\"ˆÇ È!=ƒ ÉÊ!‚ ÉË!‡" [process t beep princ "
Finished processing TeX file.
" get-buffer "*TeX*" window-buffer process-buffer message "Press SPACE to get rid of this window, or `l' to print, `p' to preview the .dvi file." "(Process TeX finished.)"] 8))

(defun tex-preview-file nil (interactive) (byte-code "ÁˆÂÃÄ \"?… ÅÃ!ˆÆÇp\"ˆÈÉpÉÊËOÌP$‡" [tex-filename nil string-equal "*TeX*" buffer-name switch-to-buffer-other-window princ "
Previewing dvi file ...
" start-process "xdvi" 0 -4 ".dvi"] 11))

(defun tex-lpr-file (printer) (interactive "sPrinter: lpr -h -P") (byte-code "Ãˆ	‰ˆÄÅÆÇÈÉÊ
ËÌOÍR%Î\"‡" [*TeX-Printer* printer tex-filename nil set-process-sentinel start-process "lpr" "*TeX*" "sh" "-c" "dvi2ps -r " 0 -4 ".dvi | lpr -h -P" lpr-sentinel] 10))

(defun lpr-sentinel (process status) (byte-code "ÁÂÃÄ!\"ˆÅÆÇÆÈP$‡" [*TeX-Printer* princ "
lpr finished." get-buffer "*TeX" start-process "lpq" "*TeX*" "-P"] 8))

(defun tex-remove-window nil (interactive) (byte-code "ÀˆÁ ˆÂÃ!ˆÄ ˆÅ ‡" [nil bury-buffer other-window 1 delete-other-windows recenter] 5))

(defun kill-tex-buffer nil (interactive) (byte-code "ÁˆÂÃ!…  Ä!… ÅÆ!ˆp=… Ç ˆÈ!)‡" [tex-buffer nil get-buffer "*TeX*" get-buffer-process delete-process "TeX" tex-remove-window kill-buffer] 6))