diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-06-03 23:41:53 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-06-05 18:57:32 -0400 |
| commit | 882f81fdb4ffba773af775d6d6f8920f23163e72 (patch) | |
| tree | aae726ee670e69213e4c54710d14b271b7d9e229 /lisp | |
| parent | 3632633cab801f84a23f60d5585acfae38f6e60c (diff) | |
| download | emacs-882f81fdb4ffba773af775d6d6f8920f23163e72.tar.gz | |
* lisp/subr.el (read-passwd): Don't delete return value (Bug#22027).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |