diff options
| author | Glenn Morris | 2018-03-05 15:29:15 -0500 |
|---|---|---|
| committer | Glenn Morris | 2018-03-05 15:29:15 -0500 |
| commit | 92618d767d1c2cc52c57d2c157998d2fd103f34c (patch) | |
| tree | e5b576e9f92037437c076f29120e4763ffe497c6 | |
| parent | 7a38a6d8818b6f5be0b13957d06f4da7573e3ddd (diff) | |
| download | emacs-92618d767d1c2cc52c57d2c157998d2fd103f34c.tar.gz emacs-92618d767d1c2cc52c57d2c157998d2fd103f34c.zip | |
Small auth-source-netrc-create fix
* lisp/auth-source.el (auth-source-netrc-create):
Fix handling of auth-source-netrc-use-gpg-tokens being a list.
| -rw-r--r-- | lisp/auth-source.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 8ef5f7140ac..66e1897b877 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el | |||
| @@ -1315,9 +1315,7 @@ See `auth-source-search' for details on SPEC." | |||
| 1315 | (string-match (car item) file)) | 1315 | (string-match (car item) file)) |
| 1316 | (setq ret (cdr item)) | 1316 | (setq ret (cdr item)) |
| 1317 | (setq check nil))) | 1317 | (setq check nil))) |
| 1318 | ;; FIXME: `ret' unused. | 1318 | ret)) |
| 1319 | ;; Should we return it here? | ||
| 1320 | )) | ||
| 1321 | (t 'never))) | 1319 | (t 'never))) |
| 1322 | (plain (or (eval default) (read-passwd prompt)))) | 1320 | (plain (or (eval default) (read-passwd prompt)))) |
| 1323 | ;; ask if we don't know what to do (in which case | 1321 | ;; ask if we don't know what to do (in which case |