[Emacs-diffs] /srv/bzr/emacs/trunk r103316: * lisp/net/rcirc.el (rcirc-float-time): New function.

[Deniz Dogan]

------------------------------------------------------------
revno: 103316
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Thu 2011-02-17 12:41:49 +0100
message:
  * lisp/net/rcirc.el (rcirc-float-time): New function.
  (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE)
  (rcirc-ctcp-sender-PING): Use it.
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-17 05:13:17 +0000
+++ b/lisp/ChangeLog    2011-02-17 11:41:49 +0000
@@ -1,3 +1,9 @@
+2011-02-17  Deniz Dogan  <address@hidden>
+
+       * net/rcirc.el (rcirc-float-time): New function.
+       (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE)
+       (rcirc-ctcp-sender-PING): Use it.
+
 2011-02-17  Glenn Morris  <address@hidden>
 
        * speedbar.el (speedbar-ignored-modes, speedbar-file-unshown-regexp)

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-02-11 06:19:34 +0000
+++ b/lisp/net/rcirc.el 2011-02-17 11:41:49 +0000
@@ -556,6 +556,11 @@
   `(with-current-buffer rcirc-server-buffer
      ,@body))
 
+(defun rcirc-float-time ()
+  (if (featurep 'xemacs)
+      (time-to-seconds (current-time))
+    (float-time)))
+
 (defun rcirc-keepalive ()
   "Send keep alive pings to active rcirc processes.
 Kill processes that have not received a server message since the
@@ -567,10 +572,7 @@
                   (rcirc-send-ctcp process
                                    rcirc-nick
                                    (format "KEEPALIVE %f"
-                                           (if (featurep 'xemacs)
-                                               (time-to-seconds
-                                                (current-time))
-                                             (float-time)))))))
+                                           (rcirc-float-time))))))
             (rcirc-process-list))
     ;; no processes, clean up timer
     (cancel-timer rcirc-keepalive-timer)
@@ -578,10 +580,7 @@
 
 (defun rcirc-handler-ctcp-KEEPALIVE (process target sender message)
   (with-rcirc-process-buffer process
-    (setq header-line-format (format "%f" (- (if (featurep 'xemacs)
-                                                 (time-to-seconds
-                                                  (current-time))
-                                               (float-time))
+    (setq header-line-format (format "%f" (- (rcirc-float-time)
                                             (string-to-number message))))))
 
 (defvar rcirc-debug-buffer " *rcirc debug*")
@@ -2209,7 +2208,7 @@
 
 (defun rcirc-ctcp-sender-PING (process target request)
   "Send a CTCP PING message to TARGET."
-  (let ((timestamp (format "%.0f" (float-time))))
+  (let ((timestamp (format "%.0f" (rcirc-float-time))))
     (rcirc-send-ctcp process target "PING" timestamp)))
 
 (defun rcirc-cmd-me (args &optional process target)