From: Deniz Dogan Date: Wed, 9 Feb 2011 01:22:26 +0000 (+0100) Subject: * lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~959 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d04fdc950fa181c47a03ec8ce63f57f4f45a4ae;p=emacs.git * lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying. --- 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 + * 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))))