diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e0dc57c1b7..dd3bb3d475c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2011-02-09 Deniz Dogan <deniz.a.m.dogan@gmail.com> + * net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying. + * net/rcirc.el (rcirc-cmd-ctcp): Use dedicated function when available. (rcirc-ctcp-sender-PING): New function. diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 246f6335134..62fa7eb0feb 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -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)))) |