Mercurial > emacs
changeset 23237:72418dac2378
(rlogin): If using make-local-hook, pass the 4th arg t to add-hook also to
modify the new local value.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Fri, 11 Sep 1998 01:22:53 +0000 |
| parents | d8013246bf0d |
| children | f99998525810 |
| files | lisp/rlogin.el |
| diffstat | 1 files changed, 14 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rlogin.el Thu Sep 10 22:51:33 1998 +0000 +++ b/lisp/rlogin.el Fri Sep 11 01:22:53 1998 +0000 @@ -1,12 +1,12 @@ ;;; rlogin.el --- remote login interface -;; Copyright (C) 1992, 1993, 1994, 1995, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1992-1995, 1997, 1998 Free Software Foundation, Inc. ;; Author: Noah Friedman -;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu> +;; Maintainer: Noah Friedman <friedman@splode.com> ;; Keywords: unix, comm -;; $Id: rlogin.el,v 1.41 1998/03/14 04:46:55 rms Exp $ +;; $Id: rlogin.el,v 1.42 1998/06/24 09:23:00 schwab Exp $ ;; This file is part of GNU Emacs. @@ -47,7 +47,6 @@ :group 'processes :group 'unix) - (defcustom rlogin-program "rlogin" "*Name of program to invoke rlogin" :type 'string @@ -215,15 +214,19 @@ ;; buffer from a previous exited process. (set-marker (process-mark proc) (point-max)) - ;; 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. + ;; comint-output-filter-functions is treated like a hook: it is + ;; processed via run-hooks or run-hooks-with-args in later versions + ;; of emacs. ;; comint-output-filter-functions should already have a ;; permanent-local property, at least in emacs 19.27 or later. - (if (fboundp 'make-local-hook) - (make-local-hook 'comint-output-filter-functions) - (make-local-variable 'comint-output-filter-functions)) - (add-hook 'comint-output-filter-functions 'rlogin-carriage-filter) + (cond + ((fboundp 'make-local-hook) + (make-local-hook 'comint-output-filter-functions) + (add-hook 'comint-output-filter-functions 'rlogin-carriage-filter + nil t)) + (t + (make-local-variable 'comint-output-filter-functions) + (add-hook 'comint-output-filter-functions 'rlogin-carriage-filter))) (rlogin-mode)