From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 1 Apr 1992 02:17:07 +0000 (+0000)
Subject: Eliminate M-g and M-q from Scheme mode.
X-Git-Tag: 20090517-FFI~9533
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=780d82f00c3f0b1e2d9c722e18a774354544c42f;p=mit-scheme.git

Eliminate M-g and M-q from Scheme mode.
---

diff --git a/v7/src/edwin/schmod.scm b/v7/src/edwin/schmod.scm
index bd6caa177..55922d43f 100644
--- a/v7/src/edwin/schmod.scm
+++ b/v7/src/edwin/schmod.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.23 1991/10/26 21:49:58 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/schmod.scm,v 1.24 1992/04/01 02:17:07 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -89,7 +89,9 @@ normally they record the associated output in a transcript buffer:
 (define-key 'scheme #\rubout 'backward-delete-char-untabify)
 (define-key 'scheme #\tab 'lisp-indent-line)
 (define-key 'scheme #\) 'lisp-insert-paren)
+(define-key 'scheme #\m-g 'undefined)
 (define-key 'scheme #\m-o 'eval-current-buffer)
+(define-key 'scheme #\m-q 'undefined)
 (define-key 'scheme #\m-z 'eval-defun)
 (define-key 'scheme #\c-m-q 'indent-sexp)
 (define-key 'scheme #\c-m-z 'eval-region)