From: Miles Bader <miles@gnu.org>
Date: Thu, 14 Mar 2002 11:52:39 +0000 (+0000)
Subject: (rlogin-mode): Use `define-derived-mode'.
X-Git-Tag: ttn-vms-21-2-B4~16166
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf232e4dec7167b8c7aeb9a49607fa881049dc39;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de609de8d8d..fe6b959481f 100644
--- 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 29cac3756b8..3d2a374852e 100644
--- 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.