/[emacs]/emacs/lisp/net/telnet.el
ViewVC logotype

Diff of /emacs/lisp/net/telnet.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.4.4 by miles, Tue Apr 27 14:08:32 2004 UTC revision 1.4.4.5 by miles, Tue Jul 6 09:14:29 2004 UTC
# Line 1  Line 1 
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
# Line 240  Normally input is edited in Emacs and se Line 240  Normally input is edited in Emacs and se
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    

Legend:
Removed from v.1.4.4.4  
changed lines
  Added in v.1.4.4.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26