summaryrefslogtreecommitdiff
path: root/lisp/password-cache.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/password-cache.el')
-rw-r--r--lisp/password-cache.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/password-cache.el b/lisp/password-cache.el
index 2443f374a84..375d06c74fd 100644
--- a/lisp/password-cache.el
+++ b/lisp/password-cache.el
@@ -103,9 +103,7 @@ that a password is invalid, so that `password-read' query the
user again."
(let ((password (gethash key password-data)))
(when (stringp password)
- (if (fboundp 'clear-string)
- (clear-string password)
- (fillarray password ?_)))
+ (clear-string password))
(remhash key password-data)))
(defun password-cache-add (key password)