Commit 882f81fd authored by Noam Postavsky's avatar Noam Postavsky
Browse files

* lisp/subr.el (read-passwd): Don't delete return value (Bug#22027).

parent 3632633c
......@@ -2268,7 +2268,7 @@ by doing (clear-string STRING)."
(second (read-passwd "Confirm password: " nil default)))
(if (equal first second)
(progn
(and (arrayp second) (clear-string second))
(and (arrayp second) (not (eq first second)) (clear-string second))
(setq success first))
(and (arrayp first) (clear-string first))
(and (arrayp second) (clear-string second))
......
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