Update for changes to VC.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 627432b5eca82335cedf7fbb262be267df45a677..a75bb9b0f2e52a164eb42cb9e2c598728f3b2f9e 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.247 2000/03/24 21:49:13 cph Exp $
+$Id: edwin.pkg,v 1.248 2000/03/25 18:48:58 cph Exp $
 
 Copyright (c) 1989-2000 Massachusetts Institute of Technology
 
@@ -1083,6 +1083,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
     (parent (edwin))
     (export (edwin)
            edwin-command$vc-diff
+           edwin-command$vc-directory
+           edwin-command$vc-dired
            edwin-command$vc-finish-logentry
            edwin-command$vc-insert-headers
            edwin-command$vc-next-action

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 9be9b1da262f2f129eddd0ea7ede83441eeaf5e1..e6dc079ff44f285f0dbc54df709e21a890096408 100644 (file)
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: modefs.scm,v 1.157 2000/02/28 22:51:02 cph Exp $
+;;; $Id: modefs.scm,v 1.158 2000/03/25 18:49:16 cph Exp $
 ;;;
 ;;; Copyright (c) 1985, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -248,10 +248,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental '(#\c-x #\c-n) 'set-goal-column)
 (define-key 'fundamental '(#\c-x #\c-o) 'delete-blank-lines)
 (define-key 'fundamental '(#\c-x #\c-p) 'mark-page)
-(define-key 'fundamental '(#\c-x #\c-q)
-  (if (string-table-get editor-commands "vc-toggle-read-only")
-      'vc-toggle-read-only
-      'toggle-read-only))
+(define-key 'fundamental '(#\c-x #\c-q) 'vc-toggle-read-only)
 (define-key 'fundamental '(#\c-x #\c-s) 'save-buffer)
 (define-key 'fundamental '(#\c-x #\c-t) 'transpose-lines)
 (define-key 'fundamental '(#\c-x #\c-u) 'upcase-region)
@@ -322,11 +319,16 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental '(#\c-x #\s) 'save-some-buffers)
 (define-key 'fundamental '(#\c-x #\u) 'undo)
 (define-prefix-key 'fundamental '(#\c-x #\v))
-(define-key 'fundamental '(#\c-x #\v #\c) 'vc-cancel-version)
+;;(define-key 'fundamental '(#\c-x #\v #\a) 'vc-update-change-log)
+;;(define-key 'fundamental '(#\c-x #\v #\c) 'vc-cancel-version)
 (define-key 'fundamental '(#\c-x #\v #\d) 'vc-directory)
+;;(define-key 'fundamental '(#\c-x #\v #\g) 'vc-annotate)
 (define-key 'fundamental '(#\c-x #\v #\h) 'vc-insert-headers)
 (define-key 'fundamental '(#\c-x #\v #\i) 'vc-register)
 (define-key 'fundamental '(#\c-x #\v #\l) 'vc-print-log)
+;;(define-key 'fundamental '(#\c-x #\v #\m) 'vc-merge)
+;;(define-key 'fundamental '(#\c-x #\v #\r) 'vc-retrieve-snapshot)
+;;(define-key 'fundamental '(#\c-x #\v #\s) 'vc-create-snapshot)
 (define-key 'fundamental '(#\c-x #\v #\u) 'vc-revert-buffer)
 (define-key 'fundamental '(#\c-x #\v #\v) 'vc-next-action)
 (define-key 'fundamental '(#\c-x #\v #\=) 'vc-diff)