Mercurial > emacs
changeset 15182:cab8ffe3a3b7
(rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output
filter functions, so user can remove it if desired.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Wed, 08 May 1996 00:52:30 +0000 |
| parents | b163c199496b |
| children | 9c770d2b753f |
| files | lisp/rlogin.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)