diff options
| author | João Távora <joaotavora@gmail.com> | 2019-11-25 22:45:24 +0000 |
|---|---|---|
| committer | João Távora <joaotavora@gmail.com> | 2019-11-25 22:45:54 +0000 |
| commit | 8f89fdf7b0f346bee157f08a5e8927e91be41ab4 (patch) | |
| tree | 27b6ce4e2a3d3f1432e0c3716159b6abc9f5e036 /lisp | |
| parent | 4cb582321a2079527dbcf496763ec41cddf63b80 (diff) | |
| download | emacs-8f89fdf7b0f346bee157f08a5e8927e91be41ab4.tar.gz | |
Fix test failures of test/lisp/auth-source-pass-tests.el
Failures introduced by recent "Make auth-source-pass-search understand
port lists", commit 92fda5a7f92162d610d57df14372bcfcee1f01b6.
* lisp/auth-source-pass.el
(auth-source-pass--generate-entry-suffixes): Fix test failures.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/auth-source-pass.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el index dfdb7596fae..51322e4ec14 100644 --- a/lisp/auth-source-pass.el +++ b/lisp/auth-source-pass.el @@ -277,7 +277,7 @@ PORT may be a list of ports." (seq-mapcat (lambda (p) (auth-source-pass--name-port-user-suffixes domain user p)) - (if (listp port) port (list port)))) + (if (consp port) port (list port)))) domains))) (defun auth-source-pass--domains (name-components) |