From 473c49b98061dc0cb7152eedf13cfac013800ce1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 Feb 2006 18:50:45 +0000 Subject: [PATCH] Implement DEFINE-EDITOR-ALIAS. --- v7/src/edwin/edwin.pkg | 5 +++-- v7/src/edwin/macros.scm | 8 ++++---- 2 files changed, 7 insertions(+), 6 deletions(-) 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 -- 2.25.1