From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Jun 2001 16:51:01 +0000 (+0000)
Subject: Eliminate variable dired-copy-preserve-time which wasn't doing anything.
X-Git-Tag: 20090517-FFI~2745
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2b962234914b214a08dd22926d17bb46b9d0c4e;p=mit-scheme.git

Eliminate variable dired-copy-preserve-time which wasn't doing anything.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 388064ae1..7e96e18b3 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.185 2001/05/24 19:07:15 cph Exp $
+;;; $Id: dired.scm,v 1.186 2001/06/02 16:51:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -40,12 +40,6 @@ A value of #t means move to first file."
   2
   exact-nonnegative-integer?)
 
-(define-variable dired-copy-preserve-time
-  "If true, Dired preserves the last-modified time in a file copy.
-\(This works on only some systems.)"
-  #t
-  boolean?)
-
 (define-variable dired-backup-overwrite
   "True if Dired should ask about making backups before overwriting files.
 Special value `always' suppresses confirmation."
@@ -545,16 +539,8 @@ and new copies are made in that directory
 with the same names that the files currently have."
   "P"
   (lambda (argument)
-    (dired-create-files
-     argument "copy" "copies"
-     (dired-create-file-operation
-      (lambda (from to)
-	(if (ref-variable dired-copy-preserve-time)
-	    (let ((access-time (file-access-time from))
-		  (modification-time (file-modification-time from)))
-	      (copy-file from to)
-	      (set-file-times! to access-time modification-time))
-	    (copy-file from to)))))))
+    (dired-create-files argument "copy" "copies"
+			(dired-create-file-operation copy-file))))
 
 (define-command dired-do-rename
   "Rename current file or all marked (or next ARG) files.
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index d60276cfd..92b102c5f 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.271 2001/03/16 21:54:24 cph Exp $
+$Id: edwin.pkg,v 1.272 2001/06/02 16:50:47 cph Exp $
 
 Copyright (c) 1989-2001 Massachusetts Institute of Technology
 
@@ -688,7 +688,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 	  edwin-command$list-directory
 	  edwin-mode$dired
 	  edwin-variable$dired-backup-overwrite
-	  edwin-variable$dired-copy-preserve-time
 	  edwin-variable$dired-kept-versions
 	  edwin-variable$dired-mode-hook
 	  edwin-variable$dired-trivial-filenames