diff options
Diffstat (limited to 'lisp/auth-source.el')
| -rw-r--r-- | lisp/auth-source.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 8b54c8118d2..918d785eaef 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el @@ -1733,7 +1733,7 @@ authentication tokens: (secret (plist-get artificial :secret)) (secret (if (functionp secret) (funcall secret) secret))) (lambda () - (apply 'auth-source-secrets-saver collection item secret args)))) + (auth-source-secrets-saver collection item secret args)))) (list artificial))) @@ -1742,8 +1742,9 @@ authentication tokens: Respects `auth-source-save-behavior'." (let ((prompt (format "Save auth info to secrets collection %s? " collection)) (done (not (eq auth-source-save-behavior 'ask))) + (doit (eq auth-source-save-behavior t)) (bufname "*auth-source Help*") - doit k) + k) (while (not done) (setq k (auth-source-read-char-choice prompt '(?y ?n ?N ??))) (cl-case k |