[Emacs-diffs] emacs/lisp/net rcirc.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/02 03:20:50

Modified files:
        lisp/net       : rcirc.el 

Log message:
        (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
        Use float-time rather than time-to-seconds.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/rcirc.el?cvsroot=emacs&r1=1.51&r2=1.52

Patches:
Index: rcirc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/rcirc.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- rcirc.el    15 Jul 2009 15:07:43 -0000      1.51
+++ rcirc.el    2 Sep 2009 03:20:48 -0000       1.52
@@ -538,8 +538,10 @@
                  (rcirc-send-string process
                                     (format "PRIVMSG %s :\C-aKEEPALIVE %f\C-a"
                                             rcirc-nick
+                                             (if (featurep 'xemacs)
                                             (time-to-seconds
-                                             (current-time)))))))
+                                                  (current-time))
+                                               (float-time)))))))
             (rcirc-process-list))
     ;; no processes, clean up timer
     (cancel-timer rcirc-keepalive-timer)
@@ -547,7 +549,10 @@
 
 (defun rcirc-handler-ctcp-KEEPALIVE (process target sender message)
   (with-rcirc-process-buffer process
-    (setq header-line-format (format "%f" (- (time-to-seconds (current-time))
+    (setq header-line-format (format "%f" (- (if (featurep 'xemacs)
+                                                 (time-to-seconds
+                                                  (current-time))
+                                               (float-time))
                                             (string-to-number message))))))
 
 (defvar rcirc-debug-buffer " *rcirc debug*")