Remove key bindings for unix-specific Dired commands.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index c234eb1f1d78f45df2662a68239b40ff837f7e10..a018fe72aee2304c42786aa542010cce6e71b9fe 100644 (file)
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dired.scm,v 1.152 1994/08/04 08:48:12 cph Exp $
+;;;    $Id: dired.scm,v 1.153 1995/01/31 21:38:09 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -125,12 +125,8 @@ Space and Rubout can be used to move down and up by lines."
 (define-key 'dired #\~ 'dired-flag-backup-files)
 
 (define-key 'dired #\C 'dired-do-copy)
-(define-key 'dired #\G 'dired-chgrp)
 (define-key 'dired #\K 'dired-krypt-file)
-(define-key 'dired #\M 'dired-chmod)
-(define-key 'dired #\O 'dired-chown)
 (define-key 'dired #\R 'dired-do-rename)
-(define-key 'dired #\Z 'dired-do-compress)
 
 (define-key 'dired #\c-d 'dired-flag-file-deletion)
 (define-key 'dired #\c-n 'dired-next-line)

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index 3801b830678ed94aedc30612b5b8dfe97b78ce98..f15c430a4a2f55b3bf91838e0febc16372cc5513 100644 (file)
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dirunx.scm,v 1.8 1995/01/06 00:58:41 cph Exp $
+;;;    $Id: dirunx.scm,v 1.9 1995/01/31 21:38:17 cph Exp $
 ;;;
 ;;;    Copyright (c) 1992-95 Massachusetts Institute of Technology
 ;;;
@@ -57,21 +57,25 @@
                                   program attribute (->namestring pathname))
          (dired-redisplay pathname lstart))))))
 
+(define-key 'dired #\M 'dired-chmod)
 (define-command dired-chmod
   "Change mode of this file."
   "sChange to Mode\nP"
   (dired-change-inode "chmod"))
 
+(define-key 'dired #\G 'dired-chgrp)
 (define-command dired-chgrp
   "Change group of this file."
   "sChange to Group\nP"
   (dired-change-inode "chgrp"))
 
+(define-key 'dired #\O 'dired-chown)
 (define-command dired-chown
   "Change owner of this file."
   "sChange to Owner\nP"
   (dired-change-inode "chown"))
 
+(define-key 'dired #\Z 'dired-do-compress)
 (define-command dired-do-compress
   "Compress or uncompress marked (or next ARG) files.
 The files are compressed or uncompressed using gzip."