Commit 4d04fdc9 authored by Deniz Dogan's avatar Deniz Dogan
Browse files

* lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.

parent f9f2e7f5
2011-02-09 Deniz Dogan <>
* net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.
* net/rcirc.el (rcirc-cmd-ctcp): Use dedicated function when
(rcirc-ctcp-sender-PING): New function.
......@@ -2198,7 +2198,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 (car (split-string (number-to-string (float-time)) "\\."))))
(let ((timestamp (format "%.0f" (float-time))))
(rcirc-send-string process
(format "PRIVMSG %s :\C-aPING %s\C-a" target timestamp))))
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