Commit f0491f76 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(read-passwd): Use clear-string instead of fillarray.

parent 7725f0fb
......@@ -1180,10 +1180,10 @@ Optional DEFAULT is a default password to use instead of empty input."
(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 @@ Optional DEFAULT is a default password to use instead of empty input."
(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 ""))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment