From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Oct 1988 15:28:23 +0000 (+0000)
Subject: Don't use second argument to `interrupt-process' and `quit-process'.
X-Git-Tag: 20090517-FFI~12490
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5205f2d9a541423a26ffa63b7ce3175b8f5a47c3;p=mit-scheme.git

Don't use second argument to `interrupt-process' and `quit-process'.
Apparently that causes difficulties under Ultrix.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index dc8a8a15b..059287719 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.19 1988/08/12 02:41:22 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.20 1988/10/21 15:28:23 cph Exp $
 
 (require 'scheme)
 
@@ -398,13 +398,13 @@ Control returns to the top level rep loop."
   (interactive)
   (let ((inhibit-quit t))
     (cond ((not xscheme-control-g-synchronization-p)
-	   (interrupt-process "scheme" t))
+	   (interrupt-process "scheme"))
 	  (xscheme-control-g-disabled-p
 	   (message "Relax..."))
 	  (t
 	   (setq xscheme-control-g-disabled-p t)
 	   (message "Sending C-G interrupt to Scheme...")
-	   (interrupt-process "scheme" t)
+	   (interrupt-process "scheme")
 	   (send-string "scheme" (char-to-string 0))))))
 
 (defun xscheme-send-control-u-interrupt ()
@@ -425,7 +425,7 @@ Control returns to the top level rep loop."
 (defun xscheme-send-interrupt (char mark-p)
   "Send a ^A type interrupt to the Scheme process."
   (interactive "cInterrupt character to send: ")
-  (quit-process "scheme" t)
+  (quit-process "scheme")
   (send-string "scheme" (char-to-string char))
   (if (and mark-p xscheme-control-g-synchronization-p)
       (send-string "scheme" (char-to-string 0))))