diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-02-02 16:49:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-02-02 16:49:58 +0000 |
| commit | f161b0795cbc9c189046326f80d45ea0df94e5a8 (patch) | |
| tree | 7b7d109869fb628a4a145ca577b792db10bf1c6f /lisp/net | |
| parent | ece9f5cc239e513a2e23ad453cd780eb36833780 (diff) | |
| download | emacs-f161b0795cbc9c189046326f80d45ea0df94e5a8.tar.gz | |
(rcirc-cmd-join): Improve argument/docstring consistency.
Diffstat (limited to 'lisp/net')
| -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." |