mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

* lisp/net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change.

Browse Source 
Fixes: debbugs:11192
This commit is contained in:
Chong Yidong 2012-04-08 21:20:43 +08:00
parent 8fc85b2054
commit 5c14e333bc
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2012-04-08 Chong Yidong <cyd@gnu.org>
* net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change
(Bug#11192).
2012-04-07 Glenn Morris <rgm@gnu.org>
* pcmpl-rpm.el (pcomplete/rpm): Handle -qf.

18
lisp/net/rcirc.el
View File

@ -2165,17 +2165,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."