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 388064ae125f5634aeffd72fd38659558e7aa8ad..7e96e18b3cc9468fab04ae2171637636cf5285b6 100644 (file)
--- 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 d60276cfd28a95a7f4a17813413ae6bd1236b484..92b102c5f5a1275cc37ea8920668af849f5fe6f1 100644 (file)
--- 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