From d63ac4d7835013e0552f340c8a31c1e3445390e1 Mon Sep 17 00:00:00 2001
From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Tue, 18 Aug 1992 00:07:57 +0000
Subject: [PATCH] Changed Dired so that the copy flag char and the delete flag
 char are Scheme variables instead of hard-wired constants.

---
 v7/src/edwin/dired.scm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 6e3f3ee3b..c8d259fab 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.125 1992/04/22 20:59:19 mhwu Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.126 1992/08/18 00:07:57 jawilson Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -120,6 +120,9 @@ Also:
   (define-function-key 'dired down 'dired-next-line)
   (define-function-key 'dired up 'dired-previous-line))
 
+(define dired-flag-delete-char #\D)
+(define dired-flag-copy-char #\C)
+
 
 (define-command dired
   "\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
@@ -308,7 +311,7 @@ CANNOT contain the 'F' option."
   "Mark the current file to be killed."
   "p"
   (lambda (argument)
-    (dired-mark #\D argument)))
+    (dired-mark dired-flag-delete-char argument)))
 
 (define-command dired-unflag
   "Cancel the kill or copy requested for the current file."
@@ -550,7 +553,7 @@ CANNOT contain the 'F' option."
 	  (lambda (lstart)
 	    (if (os/auto-save-filename?
 		 (region->string (dired-filename-region lstart)))
-		(dired-mark-1 lstart #\D))))))))
+		(dired-mark-1 lstart dired-flag-delete-char))))))))
 
 (define-command dired-flag-backup-files
   "Flag all backup files (names ending with ~) for deletion."
@@ -562,10 +565,10 @@ CANNOT contain the 'F' option."
 	  (lambda (lstart)
 	    (if (os/backup-filename?
 		 (region->string (dired-filename-region lstart)))
-		(dired-mark-1 lstart #\D))))))))
+		(dired-mark-1 lstart dired-flag-delete-char))))))))
 
 (define (dired-kill-files)
-  (let ((filenames (dired-marked-files #\D)))
+  (let ((filenames (dired-marked-files dired-flag-delete-char)))
     (if (not (null? filenames))
 	(let ((buffer (temporary-buffer " *Deletions*")))
 	  (write-strings-densely
@@ -620,7 +623,7 @@ CANNOT contain the 'F' option."
   "Mark the current file to be copied."
   "p"
   (lambda (argument)
-    (dired-mark #\C argument)))
+    (dired-mark dired-flag-copy-char argument)))
 
 (define-command dired-do-copies
   "Copy marked files."
@@ -629,7 +632,7 @@ CANNOT contain the 'F' option."
     (dired-copy-files)))
 
 (define (dired-copy-files)
-  (let ((filenames (dired-marked-files #\C)))
+  (let ((filenames (dired-marked-files dired-flag-copy-char)))
     (if (not (null? filenames))
 	(let ((buffer (temporary-buffer " *Copies*")))
 	  (write-strings-densely
-- 
2.25.1