diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <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. |