From 86eec74de6e683ab0807ea0e1461d5d22044c97f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 28 Apr 1988 18:52:03 +0000 Subject: [PATCH] Always use a pipe to communicate with Scheme even if PTYs are available. Scheme doesn't care and this fixes random PTY bugs. --- etc/xscheme.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/etc/xscheme.el b/etc/xscheme.el index 73e609629..78dfc0aaa 100644 --- a/etc/xscheme.el +++ b/etc/xscheme.el @@ -21,7 +21,7 @@ ;;; Requires C-Scheme release 5 or later ;;; Changes to Control-G handler require runtime version 13.85 or later -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.16 1988/04/06 21:31:31 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.17 1988/04/28 18:52:03 cph Exp $ (require 'scheme) @@ -496,11 +496,12 @@ When called, the current buffer will be the Scheme process-buffer.") (insert-before-markers (substitute-command-keys xscheme-startup-message))) (setq process - (apply 'start-process - (cons "scheme" - (cons buffer - (xscheme-parse-command-line - command-line))))) + (let ((process-connection-type nil)) + (apply 'start-process + (cons "scheme" + (cons buffer + (xscheme-parse-command-line + command-line)))))) (set-marker (process-mark process) (point-max)) (xscheme-process-filter-initialize t) (xscheme-modeline-initialize) -- 2.25.1