From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 Feb 2000 01:32:14 +0000 (+0000)
Subject: Add option to DESCRIBE-BINDINGS to ignore "global" comtabs.
X-Git-Tag: 20090517-FFI~4238
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b2b7d7e7933a24f42d1c3016b06c0d0491870a12;p=mit-scheme.git

Add option to DESCRIBE-BINDINGS to ignore "global" comtabs.
---

diff --git a/v7/src/edwin/keymap.scm b/v7/src/edwin/keymap.scm
index 826a7bcfc..7f15ae62d 100644
--- a/v7/src/edwin/keymap.scm
+++ b/v7/src/edwin/keymap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;$Id: keymap.scm,v 1.16 2000/02/24 01:31:11 cph Exp $
+;;;$Id: keymap.scm,v 1.17 2000/02/24 01:32:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -142,11 +142,6 @@ Previous contents of that buffer are killed first."
 	      (loop (cdr comtabs))
 	      '()))))
 
-(define global-modes
-  (list (ref-mode-object fundamental)
-	(ref-mode-object read-only)
-	(ref-mode-object read-only-noarg)))
-
 (define (sort-and-simplify elements)
   (map (lambda (element)
 	 (cons (xkey->name (car element))
diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 9c6399f8e..19b797a71 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: modefs.scm,v 1.155 1999/01/28 04:45:52 cph Exp $
+;;; $Id: modefs.scm,v 1.156 2000/02/24 01:32:14 cph Exp $
 ;;;
-;;; Copyright (c) 1985, 1989-1999 Massachusetts Institute of Technology
+;;; Copyright (c) 1985, 1989-2000 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -65,6 +65,11 @@ Like Fundamental mode, but no self-inserting characters.")
 
 (define-key 'read-only-noarg char-set:self-insert-keys 'undefined)
 (define-key 'read-only-noarg '(#\c-x #\c-q) 'no-toggle-read-only)
+
+(define global-modes
+  (list (ref-mode-object fundamental)
+	(ref-mode-object read-only)
+	(ref-mode-object read-only-noarg)))
 
 (define-key 'fundamental #\c-space 'set-mark-command)
 (define-key 'fundamental #\c-% 'replace-string)