From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 20 Sep 1991 13:34:08 +0000 (+0000)
Subject: Bind DIRED-FLAG-FILE-FOR-COPY to #\k instead of #\C.  #\C is already
X-Git-Tag: 20090517-FFI~10194
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f82b42b52e83fa11ee42875bbe0d73f38e0b0f8;p=mit-scheme.git

Bind DIRED-FLAG-FILE-FOR-COPY to #\k instead of #\C.  #\C is already
bound to DIRED-COMPRESS.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 8b973fb49..13b84d1b8 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.115 1991/09/02 21:58:00 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.116 1991/09/20 13:34:08 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -86,7 +86,7 @@ Also:
 (define-key 'dired #\e 'dired-find-file)
 (define-key 'dired #\f 'dired-find-file)
 (define-key 'dired #\o 'dired-find-file-other-window)
-(define-key 'dired #\C 'dired-flag-file-for-copy)
+(define-key 'dired #\k 'dired-flag-file-for-copy)
 (define-key 'dired #\u 'dired-unflag)
 (define-key 'dired #\x 'dired-do-deletions)
 (define-key 'dired #\y 'dired-do-copies)