diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-04-13 18:46:06 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-04-13 18:46:06 -0700 |
| commit | 35dc09a19c606f9e7a078df32d030451c7c90ba1 (patch) | |
| tree | 8df2ade99ad8620568094d61bba9dd4ac8856c43 /lisp/net | |
| parent | 327732d994c98849c765659aa2164a7482b6beab (diff) | |
| parent | ad3a2b411dc2b34f5d6fa434aee3ca56fa7a88e7 (diff) | |
| download | emacs-35dc09a19c606f9e7a078df32d030451c7c90ba1.tar.gz emacs-35dc09a19c606f9e7a078df32d030451c7c90ba1.tar.bz2 emacs-35dc09a19c606f9e7a078df32d030451c7c90ba1.zip | |
Merge from emacs-24, up to 2012-04-10T02:06:19Z!larsi@gnus.org
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index be4dee5d265..485af6e1b5e 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -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." |