From 2051d487577aca78c593b2b8601ae90e72e1cb38 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 May 1991 01:05:36 +0000
Subject: [PATCH] Change DEFINE-KEY to automatically define prefix keys as
 needed.

---
 v7/src/edwin/comint.scm   | 4 +---
 v7/src/edwin/comtab.scm   | 4 +++-
 v7/src/edwin/info.scm     | 3 +--
 v7/src/edwin/intmod.scm   | 3 +--
 v7/src/edwin/sendmail.scm | 5 +----
 5 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm
index c4c6aa101..ba5b455b8 100644
--- a/v7/src/edwin/comint.scm
+++ b/v7/src/edwin/comint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.3 1991/04/21 00:49:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.4 1991/05/06 01:03:32 cph Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -142,8 +142,6 @@ Entry to this mode runs the hooks on comint-mode-hook."
 (define-key 'comint #\M-n 'comint-next-input)
 (define-key 'comint #\M-s 'comint-previous-similar-input)
 
-(define-prefix-key 'comint #\C-c 'prefix-char)
-
 (define-key 'comint '(#\C-c #\C-c) 'comint-interrupt-subjob)
 (define-key 'comint '(#\C-c #\C-f) 'comint-continue-subjob)
 (define-key 'comint '(#\C-c #\C-l) 'comint-show-output)
diff --git a/v7/src/edwin/comtab.scm b/v7/src/edwin/comtab.scm
index f58a6ded8..726cb9f71 100644
--- a/v7/src/edwin/comtab.scm
+++ b/v7/src/edwin/comtab.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comtab.scm,v 1.58 1991/05/06 01:00:24 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comtab.scm,v 1.59 1991/05/06 01:02:48 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -77,6 +77,8 @@
 			(if-defined alists char))
 		       ((assq char (car alists))
 			=> (lambda (entry) (loop (cdr entry) chars)))
+		       ((assq char (cdr alists))
+			(error "Illegal prefix key:" key))
 		       ((not if-undefined)
 			(set-comtab-entry! alists
 					   char
diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index f11d613e0..348cd6097 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/info.scm,v 1.102 1991/05/06 00:55:53 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/info.scm,v 1.103 1991/05/06 01:04:08 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -297,7 +297,6 @@ except for \\[info-cease-edit] to return to Info."
 		       (string-append "^\f\\|"
 				      (ref-variable page-delimiter))))
 
-(define-prefix-key 'info-edit #\c-c 'prefix-char)
 (define-key 'info-edit '(#\c-c #\c-c) 'info-cease-edit)
 
 (define-command info-cease-edit
diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 6dc1fbfff..95e2e89b6 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/intmod.scm,v 1.37 1991/03/16 00:02:24 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/intmod.scm,v 1.38 1991/05/06 01:04:35 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -90,6 +90,5 @@ The history may be accessed with the following commands:
 (define-key 'scheme-interaction #\M-p 'comint-previous-input)
 (define-key 'scheme-interaction #\M-n 'comint-next-input)
 
-(define-prefix-key 'scheme-interaction #\C-c 'prefix-char)
 (define-key 'scheme-interaction '(#\C-c #\C-r) 'comint-history-search-backward)
 (define-key 'scheme-interaction '(#\C-c #\C-s) 'comint-history-search-forward)
\ No newline at end of file
diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index d91c53128..f76be24cc 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.6 1991/05/02 01:14:23 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/sendmail.scm,v 1.7 1991/05/06 01:05:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -228,9 +228,6 @@ C-c C-q  mail-fill-yanked-message (fill what was yanked)."
   "An event distributor that is invoked when entering Mail mode."
   (make-event-distributor))
 
-(define-prefix-key 'mail #\C-c 'prefix-char)
-(define-prefix-key 'mail '(#\C-c #\C-f) 'prefix-char)
-
 (define-key 'mail '(#\C-c #\?) 'describe-mode)
 (define-key 'mail '(#\C-c #\C-f #\C-t) 'mail-to)
 (define-key 'mail '(#\C-c #\C-f #\C-b) 'mail-bcc)
-- 
2.25.1