diff options
| author | Deniz Dogan <deniz.a.m.dogan@gmail.com> | 2011-02-09 02:22:26 +0100 |
|---|---|---|
| committer | Deniz Dogan <deniz.a.m.dogan@gmail.com> | 2011-02-09 02:22:26 +0100 |
| commit | 4d04fdc950fa181c47a03ec8ce63f57f4f45a4ae (patch) | |
| tree | 19261fea0fd9b3a9e84a4baa3b1bb03245d39f3d | |
| parent | f9f2e7f5407ab70e295562652dd080b86fb88292 (diff) | |
| download | emacs-4d04fdc950fa181c47a03ec8ce63f57f4f45a4ae.tar.gz | |
* lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.
| -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)))) |