mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge from emacs-24, up to 2012-04-10T02:06:19Z!larsi@gnus.org

Browse source
This commit is contained in:
Glenn Morris 2012-04-13 18:46:06 -07:00
commit 35dc09a19c
96 changed files with 1226 additions and 694 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/net/rcirc.el
View file

@ -2181,17 +2181,13 @@ 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 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 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 nick (nick)
"Change nick to NICK."