Implement DEFINE-EDITOR-ALIAS.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 02de6ce03ce8200cb4f78422f8eac23a383523e3..030e8559d7585e4434fdf17cf985db43c11bd7af 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,10 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.292 2005/12/09 20:34:15 riastradh Exp $
+$Id: edwin.pkg,v 1.293 2006/02/06 18:46:44 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1998,1999,2000 Massachusetts Institute of Technology
-Copyright 2001,2002,2003,2004,2005 Massachusetts Institute of Technology
+Copyright 2001,2002,2003,2004,2005,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -169,6 +169,7 @@ USA.
          command-defined?
          command-name->scheme-name
          define-command
+         define-editor-alias
          define-major-mode
          define-minor-mode
          define-variable

diff --git a/v7/src/edwin/macros.scm b/v7/src/edwin/macros.scm
index 1ee7fc1c7d017b70e3f46a31b20b2f7977396fe4..276bef4192e6ff90a318e3bc09f6a97d74cf4bd9 100644 (file)
--- a/v7/src/edwin/macros.scm
+++ b/v7/src/edwin/macros.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: macros.scm,v 1.77 2006/02/06 18:43:01 cph Exp $
+$Id: macros.scm,v 1.78 2006/02/06 18:50:45 cph Exp $
 
 Copyright 1987,1989,1991,1992,1993,1995 Massachusetts Institute of Technology
 Copyright 1999,2001,2002,2006 Massachusetts Institute of Technology
@@ -42,11 +42,11 @@ USA.
           (receive (table name-map)
               (case type
                 ((MODE)
-                 (values editor-modes mode-name->scheme-name))
+                 (values 'EDITOR-MODES mode-name->scheme-name))
                 ((COMMAND)
-                 (values editor-commands command-name->scheme-name))
+                 (values 'EDITOR-COMMANDS command-name->scheme-name))
                 ((VARIABLE)
-                 (values editor-variables variable-name->scheme-name))
+                 (values 'EDITOR-VARIABLES variable-name->scheme-name))
                 (else
                  (error "Unknown alias type:" type)))
           `(BEGIN