From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 22 Nov 1991 20:29:27 +0000 (+0000)
Subject: Fix bug: If a telnet buffer's process dies and is reused for another
X-Git-Tag: 20090517-FFI~10056
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a441494dde6e1e7256132b9548a3cdc6df78e5f;p=mit-scheme.git

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.
---

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