mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

* src/gnutls.c (Fgnutls_available_p): Avoid duplicating capabilities.

Browse source
This commit is contained in:
Juanma Barranquero 2022-11-03 14:41:28 +01:00
parent d8bef573d6
commit 8b8038494c
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/gnutls.c
View file

@ -2790,6 +2790,10 @@ Any GnuTLS extension with ID up to 100
capabilities = Fcons (intern("gnutls"), capabilities);
# ifdef HAVE_GNUTLS_EXT__DUMBFW
capabilities = Fcons (intern("ClientHello Padding"), capabilities);
# endif
# ifdef HAVE_GNUTLS3
capabilities = Fcons (intern("gnutls3"), capabilities);
capabilities = Fcons (intern("digests"), capabilities);
@ -2807,16 +2811,14 @@ Any GnuTLS extension with ID up to 100
const char* name = gnutls_ext_get_name(ext);
if (name != NULL)
{
capabilities = Fcons (intern(name), capabilities);
Lisp_Object cap = intern (name);
if (NILP (Fmemq (cap, capabilities)))
capabilities = Fcons (cap, capabilities);
}
}
# endif
# endif /* HAVE_GNUTLS3 */
# ifdef HAVE_GNUTLS_EXT__DUMBFW
capabilities = Fcons (intern("ClientHello Padding"), capabilities);
# endif
# ifdef WINDOWSNT
Vlibrary_cache = Fcons (Fcons (Qgnutls, capabilities), Vlibrary_cache);
# endif /* WINDOWSNT */