From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 2 Feb 2006 16:49:58 +0000 (+0000)
Subject: (rcirc-cmd-join): Improve argument/docstring consistency.
X-Git-Tag: emacs-pretest-22.0.90~4404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f161b0795cbc9c189046326f80d45ea0df94e5a8;p=emacs.git

(rcirc-cmd-join): Improve argument/docstring consistency.
---

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."