[Emacs-diffs] /srv/bzr/emacs/trunk r109022: * gnutls.c (Fgnutls_boot): Properly parse :keylist argument.

[Andreas Schwab]

------------------------------------------------------------
revno: 109022
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Wed 2012-07-11 09:20:14 +0200
message:
  * gnutls.c (Fgnutls_boot): Properly parse :keylist argument.
modified:
  src/ChangeLog
  src/gnutls.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-07-11 07:19:44 +0000
+++ b/src/ChangeLog     2012-07-11 07:20:14 +0000
@@ -1,5 +1,7 @@
 2012-07-11  Andreas Schwab  <address@hidden>
 
+       * gnutls.c (Fgnutls_boot): Properly parse :keylist argument.
+
        * coding.c (Fdefine_coding_system_internal): Use XCAR/XCDR instead
        of Fcar/Fcdr if possible.
        * font.c (check_otf_features): Likewise.

=== modified file 'src/gnutls.c'
--- a/src/gnutls.c      2012-07-11 07:19:44 +0000
+++ b/src/gnutls.c      2012-07-11 07:20:14 +0000
@@ -916,7 +916,7 @@
       for (tail = keylist; CONSP (tail); tail = XCDR (tail))
        {
          Lisp_Object keyfile = Fcar (XCAR (tail));
-         Lisp_Object certfile = Fcar (XCDR (tail));
+         Lisp_Object certfile = Fcar (Fcdr (XCAR (tail)));
          if (STRINGP (keyfile) && STRINGP (certfile))
            {
              GNUTLS_LOG2 (1, max_log_level, "setting the client key file: ",