diff options
| author | Daiki Ueno | 2019-10-15 12:42:37 +0200 |
|---|---|---|
| committer | Daiki Ueno | 2019-10-15 12:49:45 +0200 |
| commit | fcb89237d9ab969bcd29bf8f8fae8d9905644b92 (patch) | |
| tree | 965b62e595fcd9670c244c36d1d946ea864ee61b | |
| parent | 42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b (diff) | |
| download | emacs-fcb89237d9ab969bcd29bf8f8fae8d9905644b92.tar.gz emacs-fcb89237d9ab969bcd29bf8f8fae8d9905644b92.zip | |
auth-source: Fix wrong-type-argument when searching plstore
`auth-source-search' can be called with an integer port number from
`network-stream-certificate`, while the backend implementation doesn't
allow non-string attributes.
* lisp/auth-source.el (auth-source-plstore-search): Ensure attributes
are string.
| -rw-r--r-- | lisp/auth-source.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 1d3d8dba405..fdd869df3a6 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el | |||
| @@ -2049,9 +2049,9 @@ entries for git.gnus.org: | |||
| 2049 | (if (or (null v) | 2049 | (if (or (null v) |
| 2050 | (eq t v)) | 2050 | (eq t v)) |
| 2051 | nil | 2051 | nil |
| 2052 | (if (stringp v) | 2052 | (list |
| 2053 | (setq v (list v))) | 2053 | k |
| 2054 | (list k v)))) | 2054 | (auth-source-ensure-strings v))))) |
| 2055 | search-keys))) | 2055 | search-keys))) |
| 2056 | ;; needed keys (always including host, login, port, and secret) | 2056 | ;; needed keys (always including host, login, port, and secret) |
| 2057 | (returned-keys (delete-dups (append | 2057 | (returned-keys (delete-dups (append |