emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/net/telnet.el [lexbind]
Date: Tue, 06 Jul 2004 07:14:26 -0400

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]*>\\)")
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]