From b12329b4c3a3f40d18cbea22d991d35674322ebe Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Fri, 20 Nov 1992 15:35:18 +0000
Subject: [PATCH] Made dired-encrypt-file use prompt-for-confirmed-password

---
 v7/src/edwin/dired.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 
-- 
2.25.1