;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; with all optimizations.


(byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\207" [require shell custom-declare-group kermit nil "Kermit support." :group comm custom-declare-variable kermit-esc-char funcall function #[0 "\300\207" [""] 1 ""] "Kermit's escape char." :type string] 6)#@65 For sending escape sequences to a kermit running in shell mode.
(defalias 'kermit-esc #[0 "\301\302p!\303\304 !P\"\207" [kermit-esc-char process-send-string get-buffer-process char-to-string read-char] 5 (#$ . 380) nil])#@57 Send an arbitrary character to a program in shell mode.
(defalias 'kermit-send-char #[0 "\300\301p!\302\303 !\"\207" [process-send-string get-buffer-process char-to-string read-char] 4 (#$ . 607) nil])
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\303#\207" [shell-mode-map define-key "" kermit-esc "" kermit-send-char "\\"] 4)#@66 Like \[comint-send-input] but end the line with carriage-return.
(defalias 'kermit-send-input-cr #[0 "\300 \210\301\302p!\303\"\207" [comint-send-input comint-send-string get-buffer-process ""] 3 (#$ . 956) nil])
(define-key shell-mode-map "\n" '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 #[0 "\301\302\303#\210\301\304\305#\207" [shell-mode-map define-key "" kermit-send-input-cr "\n" comint-send-input] 4 (#$ . 1231) 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 #[0 "\301\302\303#\210\301\304\305#\207" [shell-mode-map define-key "\n" kermit-send-input-cr "" comint-send-input] 4 (#$ . 1584) nil])#@64 Strip ^M and ^@ characters from process output.

(fn PROC STR)
(defalias 'kermit-clean-filter #[514 "\212\300!\301!q\210\211b\210\302!\210\303\304\305#\205 \306\307!\210\202 )\207" [process-mark process-buffer insert-before-markers re-search-backward "[]+" t replace-match ""] 7 (#$ . 1904)])#@162 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 #[0 "\300\301p!\302\"\207" [set-process-filter get-buffer-process kermit-clean-filter] 3 (#$ . 2211) nil])#@46 Cancel a previous `kermit-clean-on' command.
(defalias 'kermit-clean-off #[0 "\300\301p!\302\"\207" [set-process-filter get-buffer-process nil] 3 (#$ . 2511) nil])
(provide 'kermit)