mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 07:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):

Browse source 
Use float-time rather than time-to-seconds.
This commit is contained in:
Glenn Morris 2009-09-02 03:20:48 +00:00
parent 5b66944704
commit a68366f4da
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/net/rcirc.el
View file

@ -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*")