;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:44:54 1995
;;; from file /gd/gnu/emacs/19.0/lisp/kermit.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/kermit.el' was compiled for Emacs 19"))


(require (quote shell))
#@23 *Kermit's escape char
(defvar kermit-esc-char "" (#$ . -505))
#@65 For sending escape sequences to a kermit running in shell mode.
(defalias 'kermit-esc #[nil "ÀÁp!\nÃÄ !P\"‡" [process-send-string get-buffer-process kermit-esc-char char-to-string read-char] 5 (#$ . 574) nil])
#@57 Send an arbitrary character to a program in shell mode.
(defalias 'kermit-send-char #[nil "ÀÁp!ÂÃ !\"‡" [process-send-string get-buffer-process char-to-string read-char] 4 (#$ . 790) nil])
(byte-code "À	ÂÃ#ˆÀ	ÄÅ#ˆÀ	ÆÃ#‡" [define-key shell-mode-map "" kermit-esc "" kermit-send-char "\\"] 4)
#@66 Like \[comint-send-input] but end the line with carriage-return.
(defalias 'kermit-send-input-cr #[nil "À ˆÁÂp!Ã\"‡" [comint-send-input comint-send-string get-buffer-process ""] 3 (#$ . 1091) nil])
(define-key shell-mode-map "\n" (quote kermit-send-input-cr))
#@180 Make RETURN end the line with carriage-return and LFD end it with a newline.
This is useful for talking to other systems on which carriage-return
is the normal way to end a line.
(defalias 'kermit-default-cr #[nil "À	ÂÃ#ˆÀ	ÄÅ#‡" [define-key shell-mode-map "" kermit-send-input-cr "\n" comint-send-input] 4 (#$ . 1359) nil])
#@148 Make RETURN end the line with a newline char.  This is the default state.
In this state, use LFD to send a line and end it with a carriage-return.
(defalias 'kermit-default-nl #[nil "À	ÂÃ#ˆÀ	ÄÅ#‡" [define-key shell-mode-map "\n" kermit-send-input-cr "" comint-send-input] 4 (#$ . 1691) nil])
#@49 Strip ^M and ^@ characters from process output.
(defalias 'kermit-clean-filter #[(proc str) "ŠÀ	!Ã	!qˆ\nbˆÄ!ˆÆÇ\nÈ#…  ÉÊ!ˆ‚ *‡" [process-mark proc beg process-buffer insert-before-markers str re-search-backward "[]+" t replace-match ""] 4 (#$ . 1990)])
#@158 Delete all null characters and ^M's from the kermit output.
Note that another (perhaps better) way to do this is to use the
command `kermit | tr -d '\015''.
(defalias 'kermit-clean-on #[nil "ÀÁp!Â\"‡" [set-process-filter get-buffer-process kermit-clean-filter] 3 (#$ . 2255) nil])
#@50 Cancel a previous kermit-clean-shell-on command.
(defalias 'kermit-clean-off #[nil "ÀÁp!Â\"‡" [set-process-filter get-buffer-process nil] 3 (#$ . 2542) nil])