From 8f89fdf7b0f346bee157f08a5e8927e91be41ab4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 25 Nov 2019 22:45:24 +0000 Subject: [PATCH] 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. --- lisp/auth-source-pass.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2