diff options
| author | Deniz Dogan | 2011-02-09 02:22:26 +0100 |
|---|---|---|
| committer | Deniz Dogan | 2011-02-09 02:22:26 +0100 |
| commit | 4d04fdc950fa181c47a03ec8ce63f57f4f45a4ae (patch) | |
| tree | 19261fea0fd9b3a9e84a4baa3b1bb03245d39f3d /lisp/net | |
| parent | f9f2e7f5407ab70e295562652dd080b86fb88292 (diff) | |
| download | emacs-4d04fdc950fa181c47a03ec8ce63f57f4f45a4ae.tar.gz emacs-4d04fdc950fa181c47a03ec8ce63f57f4f45a4ae.zip | |
* lisp/net/rcirc.el (rcirc-ctcp-sender-PING): Simplifying.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 2198 | 2198 | ||
| 2199 | (defun rcirc-ctcp-sender-PING (process target request) | 2199 | (defun rcirc-ctcp-sender-PING (process target request) |
| 2200 | "Send a CTCP PING message to TARGET." | 2200 | "Send a CTCP PING message to TARGET." |
| 2201 | (let ((timestamp (car (split-string (number-to-string (float-time)) "\\.")))) | 2201 | (let ((timestamp (format "%.0f" (float-time)))) |
| 2202 | (rcirc-send-string process | 2202 | (rcirc-send-string process |
| 2203 | (format "PRIVMSG %s :\C-aPING %s\C-a" target timestamp)))) | 2203 | (format "PRIVMSG %s :\C-aPING %s\C-a" target timestamp)))) |
| 2204 | 2204 | ||