From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Fri, 20 Nov 1992 15:35:18 +0000 (+0000)
Subject: Made dired-encrypt-file use prompt-for-confirmed-password
X-Git-Tag: 20090517-FFI~8734
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b12329b4c3a3f40d18cbea22d991d35674322ebe;p=mit-scheme.git

Made dired-encrypt-file use prompt-for-confirmed-password
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 9779e8e13..154f5ce87 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.133 1992/11/20 13:49:12 bal Exp $
+;;;	$Id: dired.scm,v 1.134 1992/11/20 15:35:18 bal Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -626,7 +626,7 @@ krypted and unkrypt it.  Otherwise, krypt it."
 	   (lambda ()
 	     (read-string (char-set)))))
 	(password 
-	 (prompt-for-password "Password: ")))
+	 (prompt-for-confirmed-password)))
     (let ((the-encrypted-string
 	   (encrypt the-file-string password)))
       (let ((new-name