diff options
| author | Leo Liu <sdl.web@gmail.com> | 2011-09-08 23:25:37 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2011-09-08 23:25:37 +0800 |
| commit | 567457e31a7a87292d39437281a3ab112b8b5abd (patch) | |
| tree | 93c5da68f64c65e6f94113506e34dc5207ca7e53 /lisp/net/rcirc.el | |
| parent | 97f05794552e8415ccc7522017f4dff06f84d1a4 (diff) | |
| download | emacs-567457e31a7a87292d39437281a3ab112b8b5abd.tar.gz emacs-567457e31a7a87292d39437281a3ab112b8b5abd.tar.bz2 emacs-567457e31a7a87292d39437281a3ab112b8b5abd.zip | |
New rcirc command rcirc-cmd-invite
See: http://debbugs.gnu.org/9453
Diffstat (limited to 'lisp/net/rcirc.el')
| -rw-r--r-- | lisp/net/rcirc.el | 10 |
1 files changed, 10 insertions, 0 deletions
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." |