* lisp/descr-text.el (describe-char-unicode-data): Fix copy/paste errors.

[gnu-emacs] / lisp / auth-source.el

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index d691b54d67e95e30512f9aa12f6a5638a66e8b88..fe28a02c20050262db45ca29a086a7fd3055bf3c 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1735,7 +1735,7 @@ entries for git.gnus.org:
          (items (catch 'match
                   (dolist (host hosts)
                     (dolist (port ports)
-                      (let* ((port (format "%S" port))
+                      (let* ((port (if port (format "%S" port)))
                              (items (apply #'auth-source-macos-keychain-search-items
                                            coll
                                            type