[Emacs-diffs] /srv/bzr/emacs/trunk r101632: (starttls-negotiate): Avoid the cl.el decf function.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 101632
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-26 17:30:44 +0200
message:
  (starttls-negotiate): Avoid the cl.el decf function.
modified:
  lisp/ChangeLog
  lisp/net/gnutls.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-26 13:25:35 +0000
+++ b/lisp/ChangeLog    2010-09-26 15:30:44 +0000
@@ -1,5 +1,7 @@
 2010-09-26  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * net/gnutls.el (starttls-negotiate): Avoid the cl.el decf function.
+
        * net/netrc.el (netrc-store-data): New function.
 
 2010-09-26  Teodor Zlatanov  <address@hidden>

=== modified file 'lisp/net/gnutls.el'
--- a/lisp/net/gnutls.el        2010-09-26 06:06:28 +0000
+++ b/lisp/net/gnutls.el        2010-09-26 15:30:44 +0000
@@ -82,7 +82,7 @@
           (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")