;ELC
;;; Compiled by layer@bear.franz.com on Mon Jul 23 17:50:02 2007
;;; from file /acl/acl81/src/eli/fi-telnet.el
;;; in Emacs version 21.4.1
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(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 "`fi-telnet.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@31 The telnet major-mode keymap.
(defvar fi:telnet-mode-map nil (#$ . 604))
#@47 Used for super-key processing in telnet mode.
(defvar fi:telnet-mode-super-key-map nil (#$ . 683))
#@277 *Default telnet image to invoke from FI:TELNET. If the value
is a string then it names the image file or image path that
FI:TELNET invokes. Otherwise, the value of this variable is given
to funcall, the result of which should yield a string which is the image
name or path.
(defvar fi:telnet-image-name "telnet" (#$ . -789))
#@62 *Default telnet image arguments when invoked from FI:TELNET.
(defvar fi:telnet-image-arguments nil (#$ . -1122))
#@198 *Regexp used by Newline command in telnet mode to match subshell prompts.
Anything from beginning of line up to the end of what this pattern matches
is deemed to be prompt, and is not re-executed.
(defvar fi:telnet-prompt-pattern "^[-_.a-zA-Z0-9]*[#$%>] *" (#$ . -1242))
#@83 *The initial input sent to the telnet subprocess, after the first prompt
is seen.
(defvar fi:telnet-initial-input "stty -echo nl\n" (#$ . -1519))
#@428 Major mode for interacting with an inferior telnet.
The keymap for this mode is bound to fi:telnet-mode-map:
\{fi:telnet-mode-map}
Entry to this mode runs the following hooks:
fi:subprocess-mode-hook
fi:telnet-mode-hook
in the above order.
When calling from a program, argument is MODE-HOOK,
which is funcall'd just after killing all local variables but before doing
any other mode setup.
(defalias 'fi:telnet-mode #[(&optional mode-hook) "\306 \210\203\n \210\307\310\311\303\312\313#\210\314!\210\315\315\315\316\317\320\"\207" [mode-hook major-mode mode-name fi:telnet-mode-map fi:shell-popd-regexp fi:shell-pushd-regexp fi::kill-all-local-variables fi:telnet-mode "Telnet" fi::initialize-mode-map fi:telnet-super-key-map telnet use-local-map nil run-hooks fi:subprocess-mode-hook fi:telnet-mode-hook fi:shell-cd-regexp] 4 (#$ . 1672) nil])
#@585 Start an telnet in a buffer whose name is determined from the optional
prefix argument BUFFER-NUMBER and the HOST. Telnet buffer names start with
`*HOST*' and end with an optional "". If BUFFER-NUMBER is not given
it defaults to 1. If BUFFER-NUMBER is 1, then the trailing "<1>" is
omited. If BUFFER-NUMBER is < 0, then the first available buffer name is
chosen (a buffer with no process attached to it).
The host name is read from the minibuffer.
The telnet image file and image arguments are taken from the variables
`fi:telnet-image-name' and `fi:telnet-image-arguments'.
(defalias 'fi:telnet #[(&optional buffer-number host) "\306\307\310 \n\311\f
B\312& )\207" [fi:subprocess-env-vars host buffer-number default-directory fi:telnet-prompt-pattern fi:telnet-image-name (("EMACS" . "t") ("TERM" . "dumb") ("DISPLAY" getenv "DISPLAY")) fi::make-subprocess nil fi:telnet-mode fi::telnet-filter fi:telnet-image-arguments] 10 (#$ . 2571) "p\nsTelnet to host: "])
#@55 Start a filter that removes ^M's at the end of lines.
(defalias 'fi:telnet-start-garbage-filter #[nil "\300\301p!\302\"\207" [set-process-filter get-buffer-process fi::telnet-garbage-filter] 3 (#$ . 3553) nil])
#@171 Filter for `fi:telnet' subprocess buffers.
Watch for the first shell prompt from the telnet, then send the
string bound to fi:telnet-initial-input, and turn ourself off.
(defalias 'fi::telnet-filter #[(process output) "\306 \307#\310\311\312 \"\203 \313 \314\n\315P\"\2026 \212\316 \210\317\f!)\2030 \320\306\"\210\314
\"\210\2056 q*\207" [process output password old-buffer fi::prompt-pattern fi:telnet-initial-input fi::subprocess-filter t nil string-match "assword" fi::read-password process-send-string "\n" beginning-of-line looking-at set-process-filter] 4 (#$ . 3771)])
#@96 Filter for telnet subprocess buffers when "stty nl" doesn't cause
those nasty ^M's to go away.
(defalias 'fi::telnet-garbage-filter #[(process output) "\303 \304\211$\211\205
\nq)\207" [process output old-buffer fi::subprocess-filter t] 6 (#$ . 4364)])