[Erc-commit] [commit][master] Reconnect timeout must be a number, not necessarily an integer

[mwolson]

commit 1b9d78bea251cac82935a12d437bcc1ad23b3ddd
Author: Michael W. Olson <address@hidden>
Date:   Tue Aug 14 01:12:52 2007 -0400

    Reconnect timeout must be a number, not necessarily an integer
    
    * erc-backend.el (erc-process-sentinel-2): Improve message for case where
      erc-server-reconnect timeout is t.  Check to see if
      erc-server-reconnect-timeout is a number, rather than an integer.

diff --git a/ChangeLog b/ChangeLog
index b957b34..05aa739 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -18,7 +18,7 @@
        sentinel by means of run-at-time, so that there is time to kill
        the buffer if need be; this also removes the need for a while
        loop.  Refuse to reconnect again if erc-server-reconnect-timeout
-       is not an integer.
+       is not an number.
 
        * erc.el (erc-command-no-process-p): Fix bug: the return value of
        erc-extract-command-from-line is a list rather than a single
diff --git a/erc-backend.el b/erc-backend.el
index f4c87e2..73f534a 100644
--- a/erc-backend.el
+++ b/erc-backend.el
@@ -635,13 +635,13 @@ EVENT is the message received from the closed connection 
process."
                                (1+ erc-server-reconnect-count))
                        (message "%s ... %s"
                                 "Reconnecting until we succeed"
-                                "kill the server buffer to stop"))
-                     (if (integerp erc-server-reconnect-timeout)
+                                "kill the ERC server buffer to stop"))
+                     (if (numberp erc-server-reconnect-timeout)
                          (run-at-time erc-server-reconnect-timeout nil
                                       #'erc-process-sentinel-2
                                       event buffer)
                        (error (concat "`erc-server-reconnect-timeout`"
-                                      " must be an integer")))))))))))
+                                      " must be a number")))))))))))
 
 (defun erc-process-sentinel-1 (event buffer)
   "Called when `erc-process-sentinel' has decided that we're disconnecting.