diff options
| author | Noam Postavsky | 2017-06-03 23:41:53 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2017-06-05 18:57:32 -0400 |
| commit | 882f81fdb4ffba773af775d6d6f8920f23163e72 (patch) | |
| tree | aae726ee670e69213e4c54710d14b271b7d9e229 | |
| parent | 3632633cab801f84a23f60d5585acfae38f6e60c (diff) | |
| download | emacs-882f81fdb4ffba773af775d6d6f8920f23163e72.tar.gz emacs-882f81fdb4ffba773af775d6d6f8920f23163e72.zip | |
* lisp/subr.el (read-passwd): Don't delete return value (Bug#22027).
| -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)." | |||
| 2268 | (second (read-passwd "Confirm password: " nil default))) | 2268 | (second (read-passwd "Confirm password: " nil default))) |
| 2269 | (if (equal first second) | 2269 | (if (equal first second) |
| 2270 | (progn | 2270 | (progn |
| 2271 | (and (arrayp second) (clear-string second)) | 2271 | (and (arrayp second) (not (eq first second)) (clear-string second)) |
| 2272 | (setq success first)) | 2272 | (setq success first)) |
| 2273 | (and (arrayp first) (clear-string first)) | 2273 | (and (arrayp first) (clear-string first)) |
| 2274 | (and (arrayp second) (clear-string second)) | 2274 | (and (arrayp second) (clear-string second)) |