diff options
| author | João Távora | 2019-11-25 22:45:24 +0000 |
|---|---|---|
| committer | João Távora | 2019-11-25 22:45:54 +0000 |
| commit | 8f89fdf7b0f346bee157f08a5e8927e91be41ab4 (patch) | |
| tree | 27b6ce4e2a3d3f1432e0c3716159b6abc9f5e036 | |
| parent | 4cb582321a2079527dbcf496763ec41cddf63b80 (diff) | |
| download | emacs-8f89fdf7b0f346bee157f08a5e8927e91be41ab4.tar.gz emacs-8f89fdf7b0f346bee157f08a5e8927e91be41ab4.zip | |
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.
| -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." | |||
| 277 | (seq-mapcat | 277 | (seq-mapcat |
| 278 | (lambda (p) | 278 | (lambda (p) |
| 279 | (auth-source-pass--name-port-user-suffixes domain user p)) | 279 | (auth-source-pass--name-port-user-suffixes domain user p)) |
| 280 | (if (listp port) port (list port)))) | 280 | (if (consp port) port (list port)))) |
| 281 | domains))) | 281 | domains))) |
| 282 | 282 | ||
| 283 | (defun auth-source-pass--domains (name-components) | 283 | (defun auth-source-pass--domains (name-components) |