diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 8 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d9feee95b4e..fb8f7713fe1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -52,6 +52,7 @@ (rcirc-cmd-ignore, rcirc-browse-url, rcirc-url-regexp): Fix typos in docstrings. (rcirc-print): "?\ " -> "?\s". + (rcirc-cmd-join): Improve argument/docstring consistency. 2006-02-01 Mark A. Hershberger <mah@everybody.org> 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." |