1 |
;;; telnet.el --- run a telnet session from within an Emacs buffer |
;;; telnet.el --- run a telnet session from within an Emacs buffer |
2 |
|
|
3 |
;; Copyright (C) 1985, 1988, 1992, 1994 Free Software Foundation, Inc. |
;; Copyright (C) 1985, 88, 1992, 94, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: William F. Schelter |
;; Author: William F. Schelter |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
240 |
|
|
241 |
(put 'telnet-mode 'mode-class 'special) |
(put 'telnet-mode 'mode-class 'special) |
242 |
|
|
243 |
(defun telnet-mode () |
(define-derived-mode telnet-mode comint-mode "Telnet" |
244 |
"This mode is for using telnet (or rsh) from a buffer to another host. |
"This mode is for using telnet (or rsh) from a buffer to another host. |
245 |
It has most of the same commands as comint-mode. |
It has most of the same commands as comint-mode. |
246 |
There is a variable ``telnet-interrupt-string'' which is the character |
There is a variable ``telnet-interrupt-string'' which is the character |
247 |
sent to try to stop execution of a job on the remote host. |
sent to try to stop execution of a job on the remote host. |
248 |
Data is sent to the remote host when RET is typed. |
Data is sent to the remote host when RET is typed." |
249 |
|
(set (make-local-variable 'comint-prompt-regexp) telnet-prompt-pattern)) |
|
\\{telnet-mode-map} |
|
|
" |
|
|
(interactive) |
|
|
(comint-mode) |
|
|
(setq major-mode 'telnet-mode |
|
|
mode-name "Telnet" |
|
|
comint-prompt-regexp telnet-prompt-pattern) |
|
|
(use-local-map telnet-mode-map) |
|
|
(run-hooks 'telnet-mode-hook)) |
|
250 |
|
|
251 |
;;;###autoload (add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)") |
;;;###autoload (add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)") |
252 |
|
|