From: Noah Friedman <friedman@splode.com>
Date: Wed, 8 May 1996 00:52:30 +0000 (+0000)
Subject: (rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output
X-Git-Tag: emacs-19.34~680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fa128e82a612fbec633793e117d9a341e4f7749;p=emacs.git

(rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output
filter functions, so user can remove it if desired.
---

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index 15ed52b393d..88e32b113f0 100644
--- a/lisp/rlogin.el
+++ b/lisp/rlogin.el
@@ -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 @@ variable."
       ;; 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)