From 567457e31a7a87292d39437281a3ab112b8b5abd Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Thu, 8 Sep 2011 23:25:37 +0800 Subject: [PATCH] New rcirc command rcirc-cmd-invite See: http://debbugs.gnu.org/9453 --- lisp/ChangeLog | 4 ++++ lisp/net/rcirc.el | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d64950d64b..74aae97943d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-09-08 Leo Liu + + * net/rcirc.el (rcirc-cmd-invite): New rcirc command. (Bug#9453) + 2011-09-08 Juri Linkov * progmodes/compile.el (compilation-environment): Make it diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 51a087bc084..6a912cd6273 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." -- 2.39.2