From 6152687f13fb011cb9e4327d42900e2d64d253de Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Jan 1995 21:38:17 +0000
Subject: [PATCH] Remove key bindings for unix-specific Dired commands.

---
 v7/src/edwin/dired.scm  | 8 ++------
 v7/src/edwin/dirunx.scm | 6 +++++-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index c234eb1f1..a018fe72a 100644
--- 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 3801b8306..f15c430a4 100644
--- 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."
-- 
2.25.1