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 e5ae584fd524621c0947f18d10798974301213d5..cd94e93edc6c53b4652ffe0e610acbe95fbc6fee 100644 (file)
--- 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 ba44817e0a40d702254c088d24169472b4977b41..3a3292f5e307ec25ff7c948556e70f3b43a3fc41 100644 (file)
--- 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