mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(rlogin): Call rlogin-mode after adding rlogin-carriage-filter to output

Browse Source 
filter functions, so user can remove it if desired.
This commit is contained in:
Noah Friedman 1996-05-08 00:52:30 +00:00
parent dc929aa99d
commit 9fa128e82a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/rlogin.el
View File

@ -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)