Commit 73057ba9 authored by Deniz Dogan's avatar Deniz Dogan
Browse files

* lisp/net/rcirc.el (rcirc-float-time): New function.

(rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE)
(rcirc-ctcp-sender-PING): Use it.
parent 124c9ff0
2011-02-17 Deniz Dogan <>
* 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 <>
* speedbar.el (speedbar-ignored-modes, speedbar-file-unshown-regexp)
......@@ -556,6 +556,11 @@ If ARG is non-nil, instead prompt for connection parameters."
`(with-current-buffer rcirc-server-buffer
(defun rcirc-float-time ()
(if (featurep 'xemacs)
(time-to-seconds (current-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 @@ last ping."
(rcirc-send-ctcp process
(format "KEEPALIVE %f"
(if (featurep 'xemacs)
;; no processes, clean up timer
(cancel-timer rcirc-keepalive-timer)
......@@ -578,10 +580,7 @@ last ping."
(defun rcirc-handler-ctcp-KEEPALIVE (process target sender message)
(with-rcirc-process-buffer process
(setq header-line-format (format "%f" (- (if (featurep 'xemacs)
(setq header-line-format (format "%f" (- (rcirc-float-time)
(string-to-number message))))))
(defvar rcirc-debug-buffer " *rcirc debug*")
......@@ -2209,7 +2208,7 @@ With a prefix arg, prompt for new topic."
(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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment