;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'comint)
#@300 Specify which telnet program to use for particular hosts.
Each element has the form (HOSTNAME PROGRAM [LOGIN-NAME])
HOSTNAME says which machine the element applies to.
PROGRAM says which program to run, to talk to that machine.
LOGIN-NAME, which is optional, says what to log in as on that machine.
(defvar telnet-host-properties nil (#$ . 103))
(defvar telnet-new-line "
")
(defvar telnet-mode-map (byte-code "\301 \244\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\207" [comint-mode-map make-sparse-keymap define-key "
" telnet-send-input "" send-process-next-char "" telnet-interrupt-subjob "" telnet-c-z] 5))
(defvar telnet-prompt-pattern "^[^#$%>\n]*[#$%>] *")
(defvar telnet-replace-c-g nil)
#@48 Non-nil if the telnet process will echo input.
(defvar telnet-remote-echoes t (#$ . 840))
(make-variable-buffer-local 'telnet-remote-echoes)
#@21 String sent by C-c.
(defvar telnet-interrupt-string "" (#$ . 987))
(make-variable-buffer-local 'telnet-interrupt-string)
#@74 Number of output strings from telnet process while looking for password.
(defvar telnet-count 0 (#$ . 1115))
(make-variable-buffer-local 'telnet-count)
#@45 Program to run to open a telnet connection.
(defvar telnet-program "telnet" (#$ . 1273))
#@146 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 (#$ . 1369))
#@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 (#$ . 1567))
#@59 Command used to start the `telnet' (or `rsh') connection.
(defvar telnet-connect-command nil (#$ . 1853))
#@66 Interrupt the program running through telnet on the remote host.
(defalias 'telnet-interrupt-subjob #[0 "\301\302\"\207" [telnet-interrupt-string process-send-string nil] 3 (#$ . 1965) nil])
#@30 

(fn IGNORE-AUTO NOCONFIRM)
(defalias 'telnet-revert-buffer #[514 "\203\f\303\304\")\207\211\204\305\306!\205\307\n!\207" [buffer-file-name revert-buffer-function telnet-connect-command nil revert-buffer yes-or-no-p "Restart connection? " apply] 5 (#$ . 2163)])
(defalias 'telnet-c-z #[0 "\300\301\302\"\207" [process-send-string nil ""] 3 nil nil])
(defalias 'send-process-next-char #[0 "\302\303\304\305\306 \303)!\"\207" [inhibit-quit quit-flag process-send-string nil char-to-string t read-char] 5 nil nil])
#@66 Try to put correct initializations in.  Needs work.

(fn STRING)
(defalias 'telnet-check-software-type-initialize #[257 "\305\306\307\"\203	\310\2021\306\311\"\203\312\2021\306\313\"\203(\314\2021\306\315\"\2031\316)\n\211\207" [case-fold-search comint-prompt-regexp telnet-prompt-pattern telnet-new-line telnet-replace-c-g t string-match "unix" "\n" "tops-20" "[@>]*" "its" "^[^*>\n]*[*>] *" "explorer" 10] 4 (#$ . 2694)])
#@20 

(fn PROC STRING)
(defalias 'telnet-initial-filter #[514 "r\304!q\210\305\306\307\"\203\310\304!!\210\311\307!\202Q\306\312\"\2037\313\"\210\314\315\316\317!\nP\"\210\320 \202Q\321
!\210\313\"\210	V\203M\322\313\"\202Q	T\211*\207" [case-fold-search telnet-count telnet-new-line telnet-maximum-count process-buffer t string-match "No such host" kill-buffer error "passw" telnet-filter 0 process-send-string read-passwd "Password: " clear-this-command-keys telnet-check-software-type-initialize set-process-filter] 6 (#$ . 3144)])
#@20 

(fn PROC STRING)
(defalias 'telnet-simple-send #[514 "\302\"\210\203\211\303\230?\205\304 \207\302	\"\207" [comint-input-sender-no-newline telnet-new-line comint-send-string "" process-send-eof] 5 (#$ . 3701)])
#@20 

(fn PROC STRING)
(defalias 'telnet-filter #[514 "r\303!q\210\304\305!!`
Z\205\304!\306p!\211\205\307
!b\210c\210	\310\223\210\305!`\310\223\210\211\203<\311\312#\210\203E\310\223\210\313x\210`V\203W`S`|\210\202E\305!b\210\n\203i\314`\315\n\312%\210\316V\205v\305!\\b\266\205)\207" [comint-last-input-end comint-last-output-start telnet-replace-c-g process-buffer marker-position process-mark get-buffer-window window-start nil set-window-start t "^
" subst-char-in-region 7 0] 13 (#$ . 3928)])
(defalias 'telnet-send-input #[0 "\303 \210\205\n	\n|\207" [telnet-remote-echoes comint-last-input-start comint-last-input-end comint-send-input] 2 nil nil])
#@565 Open a network login connection to host named HOST (a string).
Optional arg PORT specifies alternative port to connect to.
Interactively, use \[universal-argument] prefix to be prompted for port number.

Communication with HOST is recorded in a buffer `*PROGRAM-HOST*'
where PROGRAM is the telnet program being used.  This program
is controlled by the contents of the global variable `telnet-host-properties',
falling back on the value of the global variable `telnet-program'.
Normally input is edited in Emacs and sent a line at a time.

(fn HOST &optional PORT)
(defalias 'telnet #[513 "\211\203\211\247\203\306
!\262
\307\310	\"A\211\203\211@\202\n
\203+\311Q\202,\n\312\313\314\315#Q\316\317\317Q!A\205C\320AB\315\203W\321!\203W\322\317\317Q!\202\242\322\323\324\n\315%!\210\321p!\262
\325
\326\"\210\327
!\210\330 \210\331
\332\n\n\203\202\333\202\203\334\206\211\334\335\260\"\210\336 \210\337\303!\210\340E\341
\211\"*\207" [comint-delimiter-argument-list telnet-host-properties telnet-program telnet-connect-command comint-input-sender telnet-initial-count int-to-string (32 9) assoc ":" "-" comint-arguments 0 nil get-buffer "*" "-l" get-buffer-process switch-to-buffer apply make-comint set-process-filter telnet-initial-filter accept-process-output erase-buffer process-send-string "open " " " "" "\n" telnet-mode make-local-variable telnet telnet-simple-send telnet-count] 15 (#$ . 4624) (byte-code "\301\302!\204\303\202:\203\301\304!\202\305!D\207" [current-prefix-arg read-string "Open connection to host: " nil "Port: " prefix-numeric-value] 3)])
(put 'telnet-mode 'mode-class 'special)
(defvar telnet-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [telnet-mode-hook variable-documentation put "Hook run after entering Telnet mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp telnet-mode-map definition-name telnet-mode] 4)
(defvar telnet-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [telnet-mode-abbrev-table telnet-mode-map variable-documentation put purecopy "Keymap for `telnet-mode'." boundp telnet-mode-syntax-table definition-name telnet-mode (lambda (#1=#:def-tmp-var) (defvar telnet-mode-syntax-table #1#)) make-syntax-table "Syntax table for `telnet-mode'." (lambda (#1#) (defvar telnet-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `telnet-mode'." derived-mode-parent comint-mode] 5)
#@479 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.

In addition to any hooks its parent mode might have run, this mode
runs the hook `telnet-mode-hook', as the final or penultimate step
during initialization.

\{telnet-mode-map}
(defalias 'telnet-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
 =\204R\326
\325 C#\210\327!\210\330\f!\210
 \306\331!\210\332\306\333!\210\307\306\334!\210!\306\335!\210\307)\336\337!\207" [delay-mode-hooks major-mode mode-name telnet-mode-map telnet-mode-syntax-table telnet-mode-abbrev-table make-local-variable t comint-mode telnet-mode "Telnet" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table revert-buffer-function telnet-revert-buffer window-point-insertion-type comint-prompt-regexp comint-use-prompt-regexp run-mode-hooks telnet-mode-hook local-abbrev-table telnet-prompt-pattern] 5 (#$ . 7431) nil])
#@198 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.

(fn HOST)
(defalias 'rsh #[257 "\303\304!\210\305
P\306\307\310$!\210\311\312!\313\"\210\314 \210\315\301!\210\316D\317\211\207" [remote-shell-program telnet-connect-command telnet-count require shell "rsh-" switch-to-buffer make-comint nil set-process-filter get-process telnet-initial-filter telnet-mode make-local-variable rsh -16] 8 (#$ . 8848) "sOpen rsh connection to host: "])
(provide 'telnet)