From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Feb 2006 18:50:45 +0000 (+0000)
Subject: Implement DEFINE-EDITOR-ALIAS.
X-Git-Tag: 20090517-FFI~1098
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=473c49b98061dc0cb7152eedf13cfac013800ce1;p=mit-scheme.git

Implement DEFINE-EDITOR-ALIAS.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 02de6ce03..030e8559d 100644
--- 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 1ee7fc1c7..276bef419 100644
--- 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