From 5c14e333bc3bc62a082a1c04fd8eda8f6a4ac30a Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 8 Apr 2012 21:20:43 +0800 Subject: [PATCH] * lisp/net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change. Fixes: debbugs:11192 --- lisp/ChangeLog | 5 +++++ lisp/net/rcirc.el | 18 +++++++----------- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 493a4334e6e..ae31c616772 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-04-08 Chong Yidong + + * net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change + (Bug#11192). + 2012-04-07 Glenn Morris * pcmpl-rpm.el (pcomplete/rpm): Handle -qf. diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index d09b6aa831f..1c74e6190dc 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -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." -- 2.11.4.GIT