# HG changeset patch
# User Noah Friedman <friedman@splode.com>
# Date 831516750 0
# Node ID cab8ffe3a3b773425323bff23dce6c9cf0e9f550
# Parent  b163c199496b8647213a86947448c3367a4debda
(rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output
filter functions, so user can remove it if desired.

diff -r b163c199496b -r cab8ffe3a3b7 lisp/rlogin.el
--- a/lisp/rlogin.el	Wed May 08 00:04:11 1996 +0000
+++ b/lisp/rlogin.el	Wed May 08 00:52:30 1996 +0000
@@ -23,7 +23,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;; $Id: rlogin.el,v 1.30 1995/10/27 22:34:50 friedman Exp erik $
+;; $Id: rlogin.el,v 1.31 1996/01/14 07:34:30 erik Exp friedman $
 
 ;;; Commentary:
 
@@ -180,13 +180,14 @@
       ;; Set process-mark to point-max in case there is text in the
       ;; buffer from a previous exited process.
       (set-marker (process-mark proc) (point-max))
-      (rlogin-mode)
 
       ;; comint-output-filter-functions is just like a hook, except that the
       ;; functions in that list are passed arguments.  add-hook serves well
       ;; enough for modifying it.
       (add-hook 'comint-output-filter-functions 'rlogin-carriage-filter)
 
+      (rlogin-mode)
+
       (make-local-variable 'rlogin-host)
       (setq rlogin-host host)
       (make-local-variable 'rlogin-remote-user)