diff options
| author | Miles Bader <[email protected]> | 2002-03-14 11:52:39 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 2002-03-14 11:52:39 +0000 |
| commit | cf232e4dec7167b8c7aeb9a49607fa881049dc39 (patch) | |
| tree | 30871966fff458aa567afdeb0a3dd4cd99c33594 /lisp/net | |
| parent | e7161ad9ffbeece2a11b57b96da62264561cfcd4 (diff) | |
(rlogin-mode): Use `define-derived-mode'.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rlogin.el | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el index 29cac3756b..3d2a374852 100644 --- a/lisp/net/rlogin.el +++ b/lisp/net/rlogin.el @@ -6,7 +6,7 @@ ;; Maintainer: Noah Friedman <[email protected]> ;; 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. |