(rlogin-mode): Use `define-derived-mode'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de609de8d8d97c5db3d7ab0bb5d0fa2cabfa148c..fe6b959481fe723cd638be5ee9842cf87bde68ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-14  Miles Bader  <miles@gnu.org>
+
+       * net/rlogin.el (rlogin-mode): Use `define-derived-mode'.
+
 2002-03-14  Richard M. Stallman  <rms@gnu.org>
 
        * textmodes/picture.el (picture-insert)

diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el
index 29cac3756b8108bb58b459f1c0324ce507450069..3d2a374852e4f3f844d9bc030dd5fc7c3187fd3a 100644 (file)
--- a/lisp/net/rlogin.el
+++ b/lisp/net/rlogin.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Noah Friedman <friedman@splode.com>
 ;; Keywords: unix, comm
 
-;; $Id: rlogin.el,v 1.1 2000/03/20 12:52:39 gerd Exp $
+;; $Id: rlogin.el,v 1.2 2002/03/14 08:51:43 miles Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -229,18 +229,9 @@ variable."
 
 (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)
+(define-derived-mode rlogin-mode shell-mode "Rlogin"
   (setq shell-dirtrackp rlogin-directory-tracking-mode)
-  (make-local-variable 'comint-file-name-prefix)
-  (run-hooks 'rlogin-mode-hook))
+  (make-local-variable 'comint-file-name-prefix))
 
 (defun rlogin-directory-tracking-mode (&optional prefix)
   "Do remote or local directory tracking, or disable entirely.