diff options
| author | Deniz Dogan <deniz.a.m.dogan@gmail.com> | 2011-03-03 16:56:38 +0100 |
|---|---|---|
| committer | Deniz Dogan <deniz.a.m.dogan@gmail.com> | 2011-03-03 16:56:38 +0100 |
| commit | fcd8ed1db96eb78190c498b46d3cae09e1affe01 (patch) | |
| tree | 28a376dc1fcf88dd41fc8d3ee7c2795e35e51631 /lisp/net | |
| parent | 71f8b7edc1a1902d8ad85815c6becc43d2e3ca9b (diff) | |
| download | emacs-fcd8ed1db96eb78190c498b46d3cae09e1affe01.tar.gz emacs-fcd8ed1db96eb78190c498b46d3cae09e1affe01.tar.bz2 emacs-fcd8ed1db96eb78190c498b46d3cae09e1affe01.zip | |
* lisp/net/rcirc.el (rcirc-cmd-join): Accept comma-separated input.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/rcirc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 1d419dbfa18..644f7eca10f 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2104,7 +2104,8 @@ CHANNELS is a comma- or space-separated string of channel names." (let* ((split-channels (split-string channels "[ ,]" t)) (buffers (mapcar (lambda (ch) (rcirc-get-buffer-create process ch)) - split-channels))) + split-channels)) + (channels (mapconcat 'identity split-channels ","))) (rcirc-send-string process (concat "JOIN " channels)) (when (not (eq (selected-window) (minibuffer-window))) (dolist (b buffers) ;; order the new channel buffers in the buffer list |