(Fgnutls_peer_status): Return the DH prime bits for the connection

src/ChangeLog

@@ -3,6 +3,8 @@
 	* gnutls.c (gnutls_certificate_details): The :signature isn't
 	that useful, so remove it.
 	(gnutls_certificate_details): Clean up whitespace slightly.
+	(Fgnutls_peer_status): Return the Diffie-Hellman prime bits for
+	the connection.
 2014-12-07  Jan Djärv  <jan.h.d@swipnet.se>

src/gnutls.c

@@ -1029,6 +1029,15 @@ The return value is a property list with top-level keys :warnings and
                      (intern (":certificate"),
                       gnutls_certificate_details (XPROCESS (proc)->gnutls_certificate)));
 
+  /* Diffie-Hellman prime bits. */
+  {
+    int bits = gnutls_dh_get_prime_bits (XPROCESS (proc)->gnutls_state);
+    if (bits > 0)
+      result = nconc2 (result, list2
+		       (intern (":diffie-hellman-prime-bits"),
+			make_number (bits)));
+  }
+
   return result;
 }