# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1060131915 0
# Node ID 4127c72e350ba94f62748774e5ba1c9673bc4401
# Parent  6be32b5661a6fd94a7c68d2b0ba9b151f18097ca
(read-passwd): Use clear-string instead of fillarray.

diff -r 6be32b5661a6 -r 4127c72e350b lisp/subr.el
--- a/lisp/subr.el	Wed Aug 06 01:04:34 2003 +0000
+++ b/lisp/subr.el	Wed Aug 06 01:05:15 2003 +0000
@@ -1180,10 +1180,10 @@
 		(second (read-passwd "Confirm password: " nil default)))
 	    (if (equal first second)
 		(progn
-		  (and (arrayp second) (fillarray second ?\0))
+		  (and (arrayp second) (clear-string second))
 		  (setq success first))
-	      (and (arrayp first) (fillarray first ?\0))
-	      (and (arrayp second) (fillarray second ?\0))
+	      (and (arrayp first) (clear-string first))
+	      (and (arrayp second) (clear-string second))
 	      (message "Password not repeated accurately; please start over")
 	      (sit-for 1))))
 	success)
@@ -1199,18 +1199,18 @@
 	(clear-this-command-keys)
 	(if (= c ?\C-u)
 	    (progn
-	      (and (arrayp pass) (fillarray pass ?\0))
+	      (and (arrayp pass) (clear-string pass))
 	      (setq pass ""))
 	  (if (and (/= c ?\b) (/= c ?\177))
 	      (let* ((new-char (char-to-string c))
 		     (new-pass (concat pass new-char)))
-		(and (arrayp pass) (fillarray pass ?\0))
-		(fillarray new-char ?\0)
+		(and (arrayp pass) (clear-string pass))
+		(clear-string new-char)
 		(setq c ?\0)
 		(setq pass new-pass))
 	    (if (> (length pass) 0)
 		(let ((new-pass (substring pass 0 -1)))
-		  (and (arrayp pass) (fillarray pass ?\0))
+		  (and (arrayp pass) (clear-string pass))
 		  (setq pass new-pass))))))
       (message nil)
       (or pass default ""))))