From 882f81fdb4ffba773af775d6d6f8920f23163e72 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 3 Jun 2017 23:41:53 -0400 Subject: [PATCH] * lisp/subr.el (read-passwd): Don't delete return value (Bug#22027). --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 0dce02de8ba..ef00286b341 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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)) -- 2.39.2