- (setq proc (get-buffer-process buffer))
- ;; 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))
-
- ;; 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.
- (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)))