Mercurial > emacs

changeset 104795:521d6c4a95a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE): Use float-time rather than time-to-seconds.
author Glenn Morris <rgm@gnu.org>
date Wed, 02 Sep 2009 03:20:48 +0000
parents 84caf35eb99a
children e9f8f2b78f10
files lisp/net/rcirc.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/rcirc.el	Wed Sep 02 03:17:18 2009 +0000
+++ b/lisp/net/rcirc.el	Wed Sep 02 03:20:48 2009 +0000
@@ -538,8 +538,10 @@
 		  (rcirc-send-string process
 				     (format "PRIVMSG %s :\C-aKEEPALIVE %f\C-a"
 					     rcirc-nick
-					     (time-to-seconds
-					      (current-time)))))))
+                                             (if (featurep 'xemacs)
+                                                 (time-to-seconds
+                                                  (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*")