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

[Miles Bader]

Index: emacs/lisp/net/rlogin.el
diff -c emacs/lisp/net/rlogin.el:1.2 emacs/lisp/net/rlogin.el:1.3
*** emacs/lisp/net/rlogin.el:1.2        Thu Mar 14 03:51:43 2002
--- emacs/lisp/net/rlogin.el    Thu Mar 14 06:51:47 2002
***************
*** 6,12 ****
  ;; Maintainer: Noah Friedman <address@hidden>
  ;; Keywords: unix, comm
  
! ;; $Id: rlogin.el,v 1.2 2002/03/14 08:51:43 miles Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 6,12 ----
  ;; Maintainer: Noah Friedman <address@hidden>
  ;; Keywords: unix, comm
  
! ;; $Id: rlogin.el,v 1.3 2002/03/14 11:51:47 miles Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 229,246 ****
  
  (put 'rlogin-mode 'mode-class 'special)
  
! (defun rlogin-mode ()
!   "Set major-mode for rlogin sessions.
! If `rlogin-mode-hook' is set, run it."
!   (interactive)
!   (kill-all-local-variables)
!   (shell-mode)
!   (setq major-mode 'rlogin-mode)
!   (setq mode-name "rlogin")
!   (use-local-map rlogin-mode-map)
    (setq shell-dirtrackp rlogin-directory-tracking-mode)
!   (make-local-variable 'comint-file-name-prefix)
!   (run-hooks 'rlogin-mode-hook))
  
  (defun rlogin-directory-tracking-mode (&optional prefix)
    "Do remote or local directory tracking, or disable entirely.
--- 229,237 ----
  
  (put 'rlogin-mode 'mode-class 'special)
  
! (define-derived-mode rlogin-mode shell-mode "Rlogin"
    (setq shell-dirtrackp rlogin-directory-tracking-mode)
!   (make-local-variable 'comint-file-name-prefix))
  
  (defun rlogin-directory-tracking-mode (&optional prefix)
    "Do remote or local directory tracking, or disable entirely.