From 6303aba12277fcac6a597908fb047560cf7c0c3e Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 26 Sep 2010 17:30:44 +0200 Subject: [PATCH] (starttls-negotiate): Avoid the cl.el decf function. --- lisp/ChangeLog | 2 ++ lisp/net/gnutls.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9219c7c4446..50fdd4bc54e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2010-09-26 Lars Magne Ingebrigtsen + * net/gnutls.el (starttls-negotiate): Avoid the cl.el decf function. + * net/netrc.el (netrc-store-data): New function. 2010-09-26 Teodor Zlatanov diff --git a/lisp/net/gnutls.el b/lisp/net/gnutls.el index b4fa4f08385..7a2571f8a7c 100644 --- a/lisp/net/gnutls.el +++ b/lisp/net/gnutls.el @@ -82,7 +82,7 @@ CREDENTIALS-FILE is a filename with meaning dependent on CREDENTIALS." (n 25000)) (while (and (not (gnutls-error-fatalp ret)) (> n 0)) - (decf n) + (setq n (1- n)) (gnutls-message-maybe (setq ret (gnutls-handshake proc)) "handshake: %s") -- 2.39.5