diff options
author | Leo Liu <[email protected]> | 2011-09-08 23:25:37 +0800 |
---|---|---|
committer | Leo Liu <[email protected]> | 2011-09-08 23:25:37 +0800 |
commit | 567457e31a7a87292d39437281a3ab112b8b5abd (patch) | |
tree | 93c5da68f64c65e6f94113506e34dc5207ca7e53 | |
parent | 97f05794552e8415ccc7522017f4dff06f84d1a4 (diff) |
New rcirc command rcirc-cmd-invite
See: http://debbugs.gnu.org/9453
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/net/rcirc.el | 10 |
2 files changed, 14 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d64950d64..74aae97943 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-09-08 Leo Liu <[email protected]> + + * net/rcirc.el (rcirc-cmd-invite): New rcirc command. (Bug#9453) + 2011-09-08 Juri Linkov <[email protected]> * progmodes/compile.el (compilation-environment): Make it diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 51a087bc08..6a912cd627 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2141,6 +2141,16 @@ CHANNELS is a comma- or space-separated string of channel names." (dolist (b buffers) ;; order the new channel buffers in the buffer list (switch-to-buffer b))))) +(defun-rcirc-command invite (nick-channel) + "Invite NICK to CHANNEL." + (interactive (list + (concat + (completing-read "Invite nick: " + (with-rcirc-server-buffer rcirc-nick-table)) + " " + (read-string "Channel: ")))) + (rcirc-send-string process (concat "INVITE " nick-channel))) + ;; TODO: /part #channel reason, or consider removing #channel altogether (defun-rcirc-command part (channel) "Part CHANNEL." |