diff options
Diffstat (limited to 'lisp/net/rcirc.el')
| -rw-r--r-- | lisp/net/rcirc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 44e3fa8c6ec..2e512ae4e19 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -1375,14 +1375,14 @@ Also, clear the overlay arrow if the current buffer is now hidden." (when (not existing-buffer) (rcirc-cmd-whois nick)))) -(defun-rcirc-command join (args) +(defun-rcirc-command join (channel) "Join CHANNEL." (interactive "sJoin channel: ") - (let* ((channel (car (split-string args))) - (buffer (rcirc-get-buffer-create process channel))) + (let ((buffer (rcirc-get-buffer-create process + (car (split-string channel))))) (when (not (eq (selected-window) (minibuffer-window))) (funcall rcirc-switch-to-buffer-function buffer)) - (rcirc-send-string process (concat "JOIN " args)))) + (rcirc-send-string process (concat "JOIN " channel)))) (defun-rcirc-command part (channel) "Part CHANNEL." |