[Emacs-diffs] Changes to emacs/lisp/net/telnet.el [lexbind]

[Miles Bader]

Index: emacs/lisp/net/telnet.el
diff -c emacs/lisp/net/telnet.el:1.4.4.4 emacs/lisp/net/telnet.el:1.4.4.5
*** emacs/lisp/net/telnet.el:1.4.4.4    Tue Apr 27 14:08:32 2004
--- emacs/lisp/net/telnet.el    Tue Jul  6 09:14:29 2004
***************
*** 1,6 ****
  ;;; telnet.el --- run a telnet session from within an Emacs buffer
  
! ;; Copyright (C) 1985, 1988, 1992, 1994 Free Software Foundation, Inc.
  
  ;; Author: William F. Schelter
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; telnet.el --- run a telnet session from within an Emacs buffer
  
! ;; Copyright (C) 1985, 88, 1992, 94, 2004  Free Software Foundation, Inc.
  
  ;; Author: William F. Schelter
  ;; Maintainer: FSF
***************
*** 240,261 ****
  
  (put 'telnet-mode 'mode-class 'special)
  
! (defun telnet-mode ()
    "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.
! 
! \\{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))
  
  ;;;###autoload (add-hook 'same-window-regexps 
"\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)")
  
--- 240,252 ----
  
  (put 'telnet-mode 'mode-class 'special)
  
! (define-derived-mode telnet-mode comint-mode "Telnet"
    "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."
!   (set (make-local-variable 'comint-prompt-regexp) telnet-prompt-pattern))
  
  ;;;###autoload (add-hook 'same-window-regexps 
"\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)")