Mercurial > emacs
diff lisp/net/rcirc.el @ 68578:2b5f6787aa4f
(rcirc-cmd-join): Improve argument/docstring consistency.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 02 Feb 2006 16:48:23 +0000 |
parents | 979fba30166f |
children | 067115a6e738 9bec09743395 d6f8fe3307c8 |
line wrap: on
line diff
--- a/lisp/net/rcirc.el Thu Feb 02 16:34:58 2006 +0000 +++ b/lisp/net/rcirc.el Thu Feb 02 16:48:23 2006 +0000 @@ -1375,14 +1375,14 @@ (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."