From 7a441494dde6e1e7256132b9548a3cdc6df78e5f Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Fri, 22 Nov 1991 20:29:27 +0000 Subject: [PATCH] Fix bug: If a telnet buffer's process dies and is reused for another invocation of telnet, if the buffer is already selected, Edwin complains that there is no process for the buffer. --- v7/src/edwin/telnet.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/telnet.scm b/v7/src/edwin/telnet.scm index aa57d90e3..08eb2f7ef 100644 --- a/v7/src/edwin/telnet.scm +++ b/v7/src/edwin/telnet.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/telnet.scm,v 1.4 1991/10/25 00:03:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/telnet.scm,v 1.5 1991/11/22 20:29:27 arthur Exp $ Copyright (c) 1991 Massachusetts Institute of Technology @@ -54,7 +54,7 @@ and telnet-mode-hook, in that order." (set-variable! comint-prompt-regexp (or (ref-variable telnet-prompt-pattern) (ref-variable shell-prompt-pattern))) - (let ((process (current-process))) + (let ((process (get-buffer-process (current-buffer)))) (if process (set-process-filter! process (make-telnet-filter process)))) -- 2.25.1