;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:52:14 1995
;;; from file /gd/gnu/emacs/19.0/lisp/telnet.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/telnet.el' was compiled for Emacs 19"))


(byte-code "ÀÁ!ˆÂÃ!„\f ÄÃBÂÆ!„ ÇÆBÂÈ!„& ÉÈBÂÊ!„3 Ç\nÊBËÂÌ!„A Í\fÌBÎÌÏÐ#ˆÌ!ˆËÂÑ!„X ÒÑBÎÑÏÓ#ˆÑ!‡" [require comint boundp telnet-new-line "" current-load-list telnet-mode-map nil telnet-prompt-pattern "^[^#$%>\n]*[#$%>] *" telnet-replace-c-g make-variable-buffer-local telnet-remote-echoes t put variable-documentation "True if the telnet process will echo input." telnet-interrupt-string "" "String sent by C-c."] 5)
#@74 Number of output strings from telnet process while looking for password.
(defvar telnet-count 0 (#$ . 920))
(make-variable-buffer-local (quote telnet-count))
#@45 Program to run to open a telnet connection.
(defvar telnet-program "telnet" (#$ . 1084))
#@147 Initial value of `telnet-count'.  Should be set to the negative of the
number of terminal writes telnet will make setting up the host connection.
(defvar telnet-initial-count -50 (#$ . 1180))
#@237 Maximum value `telnet-count' can have.
After this many passes, we stop looking for initial setup data.
Should be set to the number of terminal writes telnet will make
rejecting one login and prompting again for a username and password.
(defvar telnet-maximum-count 4 (#$ . 1379))
(defalias 'telnet-interrupt-subjob #[nil "ÀÁ\n\"‡" [send-string nil telnet-interrupt-string] 3 nil nil])
(defalias 'telnet-c-z #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil])
(defalias 'send-process-next-char #[nil "ÀÁÂÃÅ Á)!\"‡" [send-string nil char-to-string t inhibit-quit read-char quit-flag] 5 nil nil])
(byte-code "„! Á \n¤ÃÄÅ#ˆÃÆÇ#ˆÃÈÉ#ˆÃÊË#ˆÁ‡" [telnet-mode-map make-sparse-keymap comint-mode-map define-key "" telnet-send-input "" send-process-next-char "" telnet-interrupt-subjob "" telnet-c-z] 4)
#@55 Tries to put correct initializations in.  Needs work.
(defalias 'telnet-check-software-type-initialize #[(string) "ÀÂÃ\f\"ƒ Ç‚6 ÂÉ\f\"ƒ Ê‚6 ÂË\f\"ƒ, Ì‚6 ÂÍ\f\"ƒ6 Î)‰‡" [t case-fold-search string-match "unix" string comint-prompt-regexp telnet-prompt-pattern "\n" telnet-new-line "tops-20" "[@>]*" "its" "^[^*>\n]*[*>] *" "explorer" 10 telnet-replace-c-g] 3 (#$ . 2191)])
(defalias 'telnet-initial-filter #[(proc string) "ÀÁ\n\"ƒ ÃÄ!!ˆÆÇ!‡ÀÈ\n\"ƒ+ É\n\"ˆÊÌÍÎÏ\"P\"‡Ñ\n!ˆÉ\n\"ˆVƒA ÓÉ\"‡T‰‡" [string-match "No such host" string kill-buffer process-buffer proc error "No such host." "passw" telnet-filter 0 telnet-count send-string comint-read-noecho "Password: " t telnet-new-line telnet-check-software-type-initialize telnet-maximum-count set-process-filter] 5])
(defalias 'telnet-simple-send #[(proc string) "À	\n\"ˆÀ	\"‡" [comint-send-string proc string telnet-new-line] 3])
(defalias 'telnet-filter #[(proc string) "ŠÀ	!qˆÂÃ	!!`\fZ… Â!Èp!‰	…( Ê	!\fbˆÌ!ˆÃ	!`Î“ˆƒF Ï	Ð#ˆƒR Î“ˆÑ\fxˆ`\fVƒd `S`|ˆ‚R Ã	!bˆƒw Ó\f`ÔÐ%ˆÕV…ƒ Ã	!\\b.‡" [process-buffer proc marker-position process-mark last-insertion delta comint-last-input-end ie get-buffer-window w window-start ws insert-before-markers string nil set-window-start t "^" telnet-replace-c-g subst-char-in-region 7 0] 7])
(defalias 'telnet-send-input #[nil "À ˆ	…\n \n|‡" [comint-send-input telnet-remote-echoes comint-last-input-start comint-last-input-end] 2 nil nil])
#@190 Open a network login connection to host named HOST (a string).
Communication with HOST is recorded in a buffer `*telnet-HOST*'.
Normally input is edited in Emacs and sent a line at a time.
(defalias 'telnet #[(host) "ÀÂÃ\fÅÆ#PÈÉÉQ!\nÆ\nƒ- Ì\n!ƒ- ÍÉÉQ!‚] ÍÎ\"!ˆÌp!ÐÑ\"ˆÒ!ˆÓ ˆÔÕ\fÖQ\"ˆ× ˆØ‰,‡" [(32 9) comint-delimiter-argument-list "telnet-" comint-arguments host 0 nil name get-buffer "*" buffer process get-buffer-process pop-to-buffer make-comint telnet-program set-process-filter telnet-initial-filter accept-process-output erase-buffer send-string "open " "\n" telnet-mode telnet-simple-send comint-input-sender telnet-initial-count telnet-count] 5 (#$ . 3681) "sOpen telnet connection to host: "])
#@322 This mode is for using telnet (or rsh) from a buffer to another host.
It has most of the same commands as comint-mode.
There is a variable ``telnet-interrupt-string'' which is the character
sent to try to stop execution of a job on the remote host.
Data is sent to the remote host when RET is typed.

\{telnet-mode-map}

(defalias 'telnet-mode #[nil "À ˆÁÃÇ!ˆÉÊ!‡" [comint-mode telnet-mode major-mode "Telnet" mode-name telnet-prompt-pattern comint-prompt-regexp use-local-map telnet-mode-map run-hooks telnet-mode-hook] 2 (#$ . 4421) nil])
#@187 Open a network login connection to host named HOST (a string).
Communication with HOST is recorded in a buffer `*rsh-HOST*'.
Normally input is edited in Emacs and sent a line at a time.
(defalias 'rsh #[(host) "ÀÁ!ˆÂPÅÆ\fÈ$!ˆÉÊ\f!Ë\"ˆÌ ˆÍ‰)‡" [require shell "rsh-" host name pop-to-buffer make-comint remote-shell-program nil set-process-filter get-process telnet-initial-filter telnet-mode -16 telnet-count] 6 (#$ . 4976) "sOpen rsh connection to host: "])
(provide (quote telnet))