1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00

Fix test failures of test/lisp/auth-source-pass-tests.el

Failures introduced by recent "Make auth-source-pass-search understand
port lists", commit 92fda5a7f9.

* lisp/auth-source-pass.el
(auth-source-pass--generate-entry-suffixes): Fix test failures.
This commit is contained in:
João Távora 2019-11-25 22:45:24 +00:00
parent 4cb582321a
commit 8f89fdf7b0

View file

@ -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)