[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107787: * lisp/net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change.

[Chong Yidong]

------------------------------------------------------------
revno: 107787
fixes bug(s): http://debbugs.gnu.org/11192
committer: Chong Yidong <address@hidden>
branch nick: emacs-24
timestamp: Sun 2012-04-08 21:20:43 +0800
message:
  * lisp/net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change.
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-07 18:52:43 +0000
+++ b/lisp/ChangeLog    2012-04-08 13:20:43 +0000
@@ -1,3 +1,8 @@
+2012-04-08  Chong Yidong  <address@hidden>
+
+       * net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change
+       (Bug#11192).
+
 2012-04-07  Glenn Morris  <address@hidden>
 
        * pcmpl-rpm.el (pcomplete/rpm): Handle -qf.

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2012-03-18 03:27:28 +0000
+++ b/lisp/net/rcirc.el 2012-04-08 13:20:43 +0000
@@ -2165,17 +2165,13 @@
   (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."