From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 25 Jun 2018 00:34:37 +0000 (+0200)
Subject: Don't use XCAR in possibly-nil situations
X-Git-Tag: emacs-27.0.90~4767
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf36693bd4eb25c7d0b90affa87c4739daacf355;p=emacs.git

Don't use XCAR in possibly-nil situations

* src/gnutls.c (Fgnutls_peer_status): certs theoretically may be
nil, so don't use XCAR.
---

diff --git a/src/gnutls.c b/src/gnutls.c
index 92956923db3..a8034d0abbf 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -1277,7 +1277,7 @@ The return value is a property list with top-level keys :warnings and
 
       /* Return the host certificate in its own element for
 	 compatibility reasons. */
-      result = nconc2 (result, list2 (intern (":certificate"), XCAR (certs)));
+      result = nconc2 (result, list2 (intern (":certificate"), Fcar (certs)));
     }
 
   state = XPROCESS (proc)->gnutls_state;