From: João Távora <joaotavora@gmail.com>
Date: Mon, 25 Nov 2019 22:45:24 +0000 (+0000)
Subject: Fix test failures of test/lisp/auth-source-pass-tests.el
X-Git-Tag: emacs-27.0.90~530
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f89fdf7b0f346bee157f08a5e8927e91be41ab4;p=emacs.git

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.
---

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)