[Emacs-diffs] /srv/bzr/emacs/trunk r103502: * lisp/net/rcirc.el (rcirc-cmd-join): Accept comma-separated input.

[Deniz Dogan]

------------------------------------------------------------
revno: 103502
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Thu 2011-03-03 16:56:38 +0100
message:
  * lisp/net/rcirc.el (rcirc-cmd-join): Accept comma-separated input.
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-03 13:21:50 +0000
+++ b/lisp/ChangeLog    2011-03-03 15:56:38 +0000
@@ -1,3 +1,7 @@
+2011-03-03  Deniz Dogan  <address@hidden>
+
+       * net/rcirc.el (rcirc-cmd-join): Accept comma-separated input.
+
 2011-03-03  Christian Ohler  <address@hidden>
 
        * emacs-lisp/ert.el (ert--explain-equal): New function.

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-02-17 11:41:49 +0000
+++ b/lisp/net/rcirc.el 2011-03-03 15:56:38 +0000
@@ -2104,7 +2104,8 @@
   (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