From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Dec 1987 18:58:01 +0000 (+0000)
Subject: Conditionalize `xscheme-send-interrupt' so that it sends the
X-Git-Tag: 20090517-FFI~13024
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ba4b1aa37efd5f07ffc2d85f730cd44adac96da2;p=mit-scheme.git

Conditionalize `xscheme-send-interrupt' so that it sends the
terminating NUL only when synchronization is enabled.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index 157c24397..ab2cd42d6 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.3 1987/11/23 18:32:32 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.4 1987/12/04 18:58:01 cph Exp $
 
 (require 'scheme)
 
@@ -273,7 +273,7 @@ Control returns to the top level rep loop."
   (interactive "cInterrupt character to send: ")
   (quit-process "scheme" t)
   (send-string "scheme" (char-to-string char))
-  (if mark-p
+  (if (and mark-p xscheme-control-g-synchronization-p)
       (send-string "scheme" (char-to-string 0))))
 
 ;;;; Basic Process Control