From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Oct 1993 01:50:22 +0000 (+0000)
Subject: Export COMTAB-KEY? which is true of keys that can be placed in
X-Git-Tag: 20090517-FFI~7797
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2b92f78349e6da21a4183aeed012844fdef01d97;p=mit-scheme.git

Export COMTAB-KEY? which is true of keys that can be placed in
comtabs.
---

diff --git a/v7/src/edwin/comtab.scm b/v7/src/edwin/comtab.scm
index e5ae584fd..cd94e93ed 100644
--- a/v7/src/edwin/comtab.scm
+++ b/v7/src/edwin/comtab.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: comtab.scm,v 1.63 1993/08/10 06:35:40 cph Exp $
+;;;	$Id: comtab.scm,v 1.64 1993/10/06 01:50:22 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -152,7 +152,7 @@
        (list? object)
        (for-all? object comtab?)))
 
-(define (valid-key? object)
+(define (comtab-key? object)
   (or (key? object)
       (prefixed-key? object)
       (button? object)))
@@ -179,7 +179,7 @@
 (define (comtab-alias? object)
   (and (pair? object)
        (valid-comtabs? (car object))
-       (valid-key? (cdr object))))
+       (comtab-key? (cdr object))))
 
 (define (comtab-alias/dereference datum)
   (lookup-key (car datum) (cdr datum)))
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index ba44817e0..3a3292f5e 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.136 1993/10/06 01:34:58 cph Exp $
+$Id: edwin.pkg,v 1.137 1993/10/06 01:50:15 cph Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -191,6 +191,7 @@ MIT in each case. |#
 	  comtab->alist
 	  comtab-entry
 	  comtab-key-bindings
+	  comtab-key?
 	  comtab?
 	  define-key
 	  define-prefix-key