Commit 15360934 authored by Leo Liu's avatar Leo Liu
Browse files

* lisp/net/rcirc.el (rcirc-cmd-quit): Allow quiting all servers with

prefix.
parent b59af549
2012-03-18 Leo Liu <sdl.web@gmail.com>
* net/rcirc.el (rcirc-cmd-quit): Allow quiting all servers with
prefix.
2012-03-17 Eli Zaretskii <eliz@gnu.org>
* textmodes/ispell.el (ispell-skip-tib, ispell-keep-choices-win)
......
......@@ -2165,13 +2165,17 @@ CHANNELS is a comma- or space-separated string of channel names."
(let ((channel (if (> (length channel) 0) channel target)))
(rcirc-send-string process (concat "PART " channel " :" rcirc-id-string))))
(defun-rcirc-command quit (reason)
"Send a quit message to server with REASON."
(interactive "sQuit reason: ")
(rcirc-send-string process (concat "QUIT :"
(if (not (zerop (length reason)))
reason
rcirc-id-string))))
(defun-rcirc-command quit (reason all)
"Send a quit message to server with REASON.
When called with prefix, quit all servers."
(interactive "sQuit reason: \nP")
(dolist (p (if all
(rcirc-process-list)
(list process)))
(rcirc-send-string p (concat "QUIT :"
(if (not (zerop (length reason)))
reason
rcirc-id-string)))))
(defun-rcirc-command nick (nick)
"Change nick to NICK."
......
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