[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/net/rcirc.el

From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/net/rcirc.el
Date: Thu, 02 Feb 2006 16:48:24 +0000

Index: emacs/lisp/net/rcirc.el
diff -u emacs/lisp/net/rcirc.el:1.10 emacs/lisp/net/rcirc.el:1.11
--- emacs/lisp/net/rcirc.el:1.10        Thu Feb  2 11:47:17 2006
+++ emacs/lisp/net/rcirc.el     Thu Feb  2 16:48:23 2006
@@ -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."

reply via email to

[Prev in Thread] Current Thread [Next in Thread]