Commit ee6a57ab authored by Deniz Dogan's avatar Deniz Dogan

* lisp/net/rcirc.el (rcirc-cmd-ctcp): Use dedicated function when

available.
(rcirc-ctcp-sender-PING): New function.
parent 00b3c7ac
2011-02-09 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el (rcirc-cmd-ctcp): Use dedicated function when
available.
(rcirc-ctcp-sender-PING): New function.
2011-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
* obsolete/pc-select.el: Rename from emulation/pc-select.el (bug#7940).
......
......@@ -2185,14 +2185,23 @@ With a prefix arg, prompt for new topic."
(defun rcirc-cmd-ctcp (args &optional process target)
(if (string-match "^\\([^ ]+\\)\\s-+\\(.+\\)$" args)
(let ((target (match-string 1 args))
(request (match-string 2 args)))
(rcirc-send-string process
(format "PRIVMSG %s \C-a%s\C-a"
target (upcase request))))
(let* ((target (match-string 1 args))
(request (upcase (match-string 2 args)))
(function (intern-soft (concat "rcirc-ctcp-sender-" request))))
(if (fboundp function) ;; use special function if available
(funcall function process target request)
(rcirc-send-string process
(format "PRIVMSG %s :\C-a%s\C-a"
target request))))
(rcirc-print process (rcirc-nick process) "ERROR" nil
"usage: /ctcp NICK REQUEST")))
(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)) "\\."))))
(rcirc-send-string process
(format "PRIVMSG %s :\C-aPING %s\C-a" target timestamp))))
(defun rcirc-cmd-me (args &optional process target)
(rcirc-send-string process (format "PRIVMSG %s :\C-aACTION %s\C-a"
target args)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment