;ELC ;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Mon Jun 23 15:03:08 1997 ;;; from file /home/fsf/rms/e19/lisp/kermit.el ;;; in Emacs version 19.34.94.37 ;;; with bytecomp version 2.29 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`kermit.el' was compiled for Emacs 19.29 or later")) (require 'shell) #@23 *Kermit's escape char (defvar kermit-esc-char "" (#$ . -557)) #@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 (#$ . 626) 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 (#$ . 842) 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 (#$ . 1143) 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 #[nil "À ÂÃ#ˆÀ ÄÅ#‡" [define-key shell-mode-map " " kermit-send-input-cr "\n" comint-send-input] 4 (#$ . 1404) 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 (#$ . 1736) 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 (#$ . 2035)]) #@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 (#$ . 2300) nil]) #@50 Cancel a previous kermit-clean-shell-on command. (defalias 'kermit-clean-off #[nil "ÀÁp!Â\"‡" [set-process-filter get-buffer-process nil] 3 (#$ . 2587) nil]) (provide 'kermit)