Mercurial > emacs

changeset 68578:2b5f6787aa4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rcirc-cmd-join): Improve argument/docstring consistency.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 02 Feb 2006 16:48:23 +0000
parents 488f65041f04
children d378b1eeef10
files lisp/net/rcirc.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
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."