From 9fa128e82a612fbec633793e117d9a341e4f7749 Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Wed, 8 May 1996 00:52:30 +0000 Subject: [PATCH] (rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output filter functions, so user can remove it if desired. --- lisp/rlogin.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.2