From: Andreas Schwab <schwab@suse.de>
Date: Mon, 16 Dec 2013 16:14:45 +0000 (+0100)
Subject: * gnutls.c (Fgnutls_boot): Properly check Flistp return value.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0fa30f3361e5876a7d0734e891f7386675775c8e;p=emacs.git

* gnutls.c (Fgnutls_boot): Properly check Flistp return value.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 52ceb13eb14..e21ccc28996 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-12-16  Andreas Schwab  <schwab@suse.de>
+
+	* gnutls.c (Fgnutls_boot): Properly check Flistp return value.
+
 2013-12-16  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* gnutls.c (Fgnutls_boot): Use `Flistp' instead of
diff --git a/src/gnutls.c b/src/gnutls.c
index f04d9c44b41..a20665ab408 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -825,7 +825,7 @@ one trustfile (usually a CA bundle).  */)
   verify_error          = Fplist_get (proplist, QCgnutls_bootprop_verify_error);
   prime_bits            = Fplist_get (proplist, QCgnutls_bootprop_min_prime_bits);
 
-  if (!Flistp (verify_error))
+  if (NILP (Flistp (verify_error)))
     error ("gnutls-boot: invalid :verify_error parameter (not a list)");
 
   if (!STRINGP (hostname))