[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/rlogin.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/rlogin.el |
Date: |
Thu, 14 Mar 2002 06:51:47 -0500 |
Index: emacs/lisp/net/rlogin.el
diff -c emacs/lisp/net/rlogin.el:1.2 emacs/lisp/net/rlogin.el:1.3
*** emacs/lisp/net/rlogin.el:1.2 Thu Mar 14 03:51:43 2002
--- emacs/lisp/net/rlogin.el Thu Mar 14 06:51:47 2002
***************
*** 6,12 ****
;; Maintainer: Noah Friedman <address@hidden>
;; Keywords: unix, comm
! ;; $Id: rlogin.el,v 1.2 2002/03/14 08:51:43 miles Exp $
;; This file is part of GNU Emacs.
--- 6,12 ----
;; Maintainer: Noah Friedman <address@hidden>
;; Keywords: unix, comm
! ;; $Id: rlogin.el,v 1.3 2002/03/14 11:51:47 miles Exp $
;; This file is part of GNU Emacs.
***************
*** 229,246 ****
(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)
(setq shell-dirtrackp rlogin-directory-tracking-mode)
! (make-local-variable 'comint-file-name-prefix)
! (run-hooks 'rlogin-mode-hook))
(defun rlogin-directory-tracking-mode (&optional prefix)
"Do remote or local directory tracking, or disable entirely.
--- 229,237 ----
(put 'rlogin-mode 'mode-class 'special)
! (define-derived-mode rlogin-mode shell-mode "Rlogin"
(setq shell-dirtrackp rlogin-directory-tracking-mode)
! (make-local-variable 'comint-file-name-prefix))
(defun rlogin-directory-tracking-mode (&optional prefix)
"Do remote or local directory tracking, or disable entirely.