Do not transmit "end-of-control-g" sequence back to emacs unless the

interrupt character is really a control g.

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index c10e5bc816fed5b6870f54d2bffca301b5d76a37..cda909e828e345338e1d8a5a2e0a524255b217c1 100644 (file)
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 13.46 1987/09/24 06:27:43 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 13.47 1987/10/09 14:41:00 cph Rel $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -137,7 +137,8 @@
        (let loop ()
          (if (not (char=? (primitive-read-char-immediate) #\C-@))
              (loop)))
-       (transmit-signal #\g)))
+       (if (= (char->ascii #\G) interrupt-char)
+           (transmit-signal #\g))))
   true)
 
 (define primitive-read-char-ready?