From af519a634878dd8e72f8276d82601b6562029107 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Tue, 25 Feb 2020 20:09:00 -0500 Subject: Define libgnutls-version properly * src/gnutls.c (syms_of_gnutls) : Define with DEFVAR_LISP and add docstring, so that this variable will accessible by help facilities. --- src/gnutls.c | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/src/gnutls.c b/src/gnutls.c index 31fcd37c0a6..70176c41cdd 100644 --- a/src/gnutls.c +++ b/src/gnutls.c @@ -2834,16 +2834,21 @@ Any GnuTLS extension with ID up to 100 void syms_of_gnutls (void) { - DEFSYM (Qlibgnutls_version, "libgnutls-version"); - Fset (Qlibgnutls_version, + DEFVAR_LISP ("libgnutls-version", Vlibgnutls_version, + doc: /* The version of libgnutls that Emacs was compiled with. +The version number is encoded as an integer with the major version in +the ten thousands place, minor version in the hundreds, and patch +level in the ones. For builds without libgnutls, the value is -1. */); + Vlibgnutls_version = make_fixnum #ifdef HAVE_GNUTLS - make_fixnum (GNUTLS_VERSION_MAJOR * 10000 - + GNUTLS_VERSION_MINOR * 100 - + GNUTLS_VERSION_PATCH) + (GNUTLS_VERSION_MAJOR * 10000 + + GNUTLS_VERSION_MINOR * 100 + + GNUTLS_VERSION_PATCH) #else - make_fixnum (-1) + (-1) #endif - ); + ; + #ifdef HAVE_GNUTLS gnutls_global_initialized = 0; PDUMPER_IGNORE (gnutls_global_initialized); -- cgit v1.2.1