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

diff --git a/v7/src/edwin/keymap.scm b/v7/src/edwin/keymap.scm
index 826a7bcfc0121dcc95ac526515e9e3f0a3677b7e..7f15ae62d5bb6dfd77ab13cdc566b2178aa2b7c8 100644 (file)
--- 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 9c6399f8e374bc762aac15b6d3caac877e859e17..19b797a719aec98599d2422b818396263f16b688 100644 (file)
--- 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)))
 \f
 (define-key 'fundamental #\c-space 'set-mark-command)
 (define-key 'fundamental #\c-% 'replace-string)