mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/net/rcirc.el (rcirc-cmd-join): Accept comma-separated input.

Browse source
This commit is contained in:
Deniz Dogan 2011-03-03 16:56:38 +01:00
parent 71f8b7edc1
commit fcd8ed1db9
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2011-03-03 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el (rcirc-cmd-join): Accept comma-separated input.
2011-03-03 Christian Ohler <ohler@gnu.org>
* emacs-lisp/ert.el (ert--explain-equal): New function.

3
lisp/net/rcirc.el
View file

@ -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