diff options
| author | Deniz Dogan | 2011-03-03 16:56:38 +0100 |
|---|---|---|
| committer | Deniz Dogan | 2011-03-03 16:56:38 +0100 |
| commit | fcd8ed1db96eb78190c498b46d3cae09e1affe01 (patch) | |
| tree | 28a376dc1fcf88dd41fc8d3ee7c2795e35e51631 /lisp/net | |
| parent | 71f8b7edc1a1902d8ad85815c6becc43d2e3ca9b (diff) | |
| download | emacs-fcd8ed1db96eb78190c498b46d3cae09e1affe01.tar.gz 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." | |||
| 2104 | (let* ((split-channels (split-string channels "[ ,]" t)) | 2104 | (let* ((split-channels (split-string channels "[ ,]" t)) |
| 2105 | (buffers (mapcar (lambda (ch) | 2105 | (buffers (mapcar (lambda (ch) |
| 2106 | (rcirc-get-buffer-create process ch)) | 2106 | (rcirc-get-buffer-create process ch)) |
| 2107 | split-channels))) | 2107 | split-channels)) |
| 2108 | (channels (mapconcat 'identity split-channels ","))) | ||
| 2108 | (rcirc-send-string process (concat "JOIN " channels)) | 2109 | (rcirc-send-string process (concat "JOIN " channels)) |
| 2109 | (when (not (eq (selected-window) (minibuffer-window))) | 2110 | (when (not (eq (selected-window) (minibuffer-window))) |
| 2110 | (dolist (b buffers) ;; order the new channel buffers in the buffer list | 2111 | (dolist (b buffers) ;; order the new channel buffers in the buffer list |