[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 882f81f 1/2: * lisp/subr.el (read-passwd): Don't de
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] master 882f81f 1/2: * lisp/subr.el (read-passwd): Don't delete return value (Bug#22027). |
Date: |
Mon, 5 Jun 2017 19:00:26 -0400 (EDT) |
branch: master
commit 882f81fdb4ffba773af775d6d6f8920f23163e72
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
* 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 0dce02d..ef00286 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))