diff options
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 |