From 0d84516c9e86124cca97b1f4218348ece2b95cab Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Apr 1995 16:53:05 +0000
Subject: [PATCH] Change C-g interrupt-signalling code to recognize the
 combination of the lower-case g and the control keys.  Previously, it only
 recognized the upper-case g.  This was not immediately noticed because the
 input stream lookahead code recognized both combinations.

---
 v7/src/edwin/os2term.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/os2term.scm b/v7/src/edwin/os2term.scm
index fa0322f27..c9d434f9a 100644
--- a/v7/src/edwin/os2term.scm
+++ b/v7/src/edwin/os2term.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2term.scm,v 1.5 1995/02/24 00:36:44 cph Exp $
+;;;	$Id: os2term.scm,v 1.6 1995/04/10 16:53:05 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -654,7 +654,8 @@
 		     (cond ((fix:= 0 repeat)
 			    (set! pending #f))
 			   ((and (char? pending)
-				 (char=? pending #\BEL)
+				 (or (char=? pending #\BEL)
+				     (char=? pending #\C-g))
 				 signal-interrupts?)
 			    (set! pending #f)
 			    (signal-interrupt!)))
@@ -711,7 +712,7 @@
 (define-integrable event:process-output -2)
 (define-integrable event:process-status -3)
 (define-integrable event:inferior-thread-output -4)
-
+
 (define (preview-event-stream)
   (set! previewer-registration
 	(permanently-register-input-thread-event
@@ -753,7 +754,7 @@
 	       (cdr events)))
       ((null? events))
     (enqueue!/unsafe queue (car events))))
-
+
 (define (signal-interrupt!)
   (editor-beep)
   (temporary-message "Quit")
@@ -780,7 +781,7 @@
 		   (if (fix:fixnum? key)
 		       (process-code key)
 		       (make-special-key key (fix:or meta control))))))))))
-
+
 (define (process-change-event event)
   (cond ((fix:= event event:process-output) (accept-process-output))
 	((fix:= event event:process-status) (handle-process-status-changes))
-- 
2.25.1