Mercurial > emacs
comparison lisp/telnet.el @ 17648:132278ebdbc9
(telnet-mode): Add a mode-class property.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 May 1997 01:01:17 +0000 |
| parents | 76159aa277eb |
| children | 20ff67539cfb |
comparison
equal
deleted
inserted
replaced
| 17647:e99589f5ddd7 | 17648:132278ebdbc9 |
|---|---|
| 199 (send-string process (concat "open " host "\n")) | 199 (send-string process (concat "open " host "\n")) |
| 200 (telnet-mode) | 200 (telnet-mode) |
| 201 (setq comint-input-sender 'telnet-simple-send) | 201 (setq comint-input-sender 'telnet-simple-send) |
| 202 (setq telnet-count telnet-initial-count)))) | 202 (setq telnet-count telnet-initial-count)))) |
| 203 | 203 |
| 204 (put 'telnet-mode 'mode-class 'special) | |
| 205 | |
| 204 (defun telnet-mode () | 206 (defun telnet-mode () |
| 205 "This mode is for using telnet (or rsh) from a buffer to another host. | 207 "This mode is for using telnet (or rsh) from a buffer to another host. |
| 206 It has most of the same commands as comint-mode. | 208 It has most of the same commands as comint-mode. |
| 207 There is a variable ``telnet-interrupt-string'' which is the character | 209 There is a variable ``telnet-interrupt-string'' which is the character |
| 208 sent to try to stop execution of a job on the remote host. | 210 sent to try to stop execution of a job on the remote host. |