[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105687: New rcirc command rcirc-cmd-
From: |
Leo Liu |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105687: New rcirc command rcirc-cmd-invite |
Date: |
Thu, 08 Sep 2011 23:25:37 +0800 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105687
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-08 23:25:37 +0800
message:
New rcirc command rcirc-cmd-invite
See: http://debbugs.gnu.org/9453
modified:
lisp/ChangeLog
lisp/net/rcirc.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-09-08 12:12:18 +0000
+++ b/lisp/ChangeLog 2011-09-08 15:25:37 +0000
@@ -1,3 +1,7 @@
+2011-09-08 Leo Liu <address@hidden>
+
+ * net/rcirc.el (rcirc-cmd-invite): New rcirc command. (Bug#9453)
+
2011-09-08 Juri Linkov <address@hidden>
* progmodes/compile.el (compilation-environment): Make it
=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-09-07 03:37:22 +0000
+++ b/lisp/net/rcirc.el 2011-09-08 15:25:37 +0000
@@ -2141,6 +2141,16 @@
(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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105687: New rcirc command rcirc-cmd-invite,
Leo Liu <=