From cf232e4dec7167b8c7aeb9a49607fa881049dc39 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 14 Mar 2002 11:52:39 +0000 Subject: [PATCH] (rlogin-mode): Use `define-derived-mode'. --- lisp/ChangeLog | 4 ++++ lisp/net/rlogin.el | 15 +++------------ 2 files changed, 7 insertions(+), 12 deletions(-) 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 + + * net/rlogin.el (rlogin-mode): Use `define-derived-mode'. + 2002-03-14 Richard M. Stallman * 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 ;; 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. -- 2.39.2