[Emacs-diffs] /srv/bzr/emacs/trunk r103194: * lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.

[Deniz Dogan]

------------------------------------------------------------
revno: 103194
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Wed 2011-02-09 02:22:26 +0100
message:
  * lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-09 00:22:01 +0000
+++ b/lisp/ChangeLog    2011-02-09 01:22:26 +0000
@@ -1,5 +1,7 @@
 2011-02-09  Deniz Dogan  <address@hidden>
 
+       * 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.

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-02-09 00:22:01 +0000
+++ b/lisp/net/rcirc.el 2011-02-09 01:22:26 +0000
@@ -2198,7 +2198,7 @@
 
 (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))))