diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:20:48 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-02 03:20:48 +0000 |
| commit | a68366f4da2cbf3c83e896ae2d8d0b73a84b666a (patch) | |
| tree | 0e31185f6ce35fe3166b4bd5e207d9be6c2d3952 | |
| parent | 5b66944704067d748de6734b6223389a433e3de8 (diff) | |
| download | emacs-a68366f4da2cbf3c83e896ae2d8d0b73a84b666a.tar.gz | |
(rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Use float-time rather than time-to-seconds.
| -rw-r--r-- | lisp/net/rcirc.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 095ebe7245f..ab9a0ba8b7d 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -538,8 +538,10 @@ last ping." (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 @@ last ping." (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*") |