From: ueno <ueno>
Date: Sun, 19 Aug 2007 06:29:58 +0000 (+0000)
Subject: Removed local vars.
X-Git-Tag: riece-5_0_0~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c3c256533e44c81607a871fb1e6ee9914f4c58b8;p=elisp%2Friece.git

Removed local vars.
---

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 60f4c60..64f0275 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -236,23 +236,22 @@ the layout to the selected layout-name."
 
 (defun riece-command-kick-with-ban (user pattern &optional message)
   (interactive
-   (let ((completion-ignore-case t)
-	 users patterns)
+   (let ((completion-ignore-case t))
      (riece-check-channel-commands-are-usable t)
      (riece-with-server-buffer (riece-identity-server riece-current-channel)
-       (setq users (riece-channel-get-users (riece-identity-prefix
-					     riece-current-channel))
-	     patterns (mapcar
-		       (lambda (user)
-			 (list (concat (car user) "!"
-				       (riece-user-get-user-at-host
-					(car user)))))
-		       users)))
-     (list
-      (completing-read (riece-mcat "Kick user: ") users)
-      (completing-read (riece-mcat "Ban pattern: ") patterns)
-      (if current-prefix-arg
-	  (read-string "Message: ")))))
+       (list
+	(completing-read (riece-mcat "Kick user: ")
+			 (riece-channel-get-users (riece-identity-prefix
+						   riece-current-channel)))
+	(completing-read (riece-mcat "Ban pattern: ")
+			 (mapcar
+			  (lambda (user)
+			    (list (concat (car user) "!"
+					  (riece-user-get-user-at-host
+					   (car user)))))
+			  users))
+	(if current-prefix-arg
+	    (read-string "Message: "))))))
   (riece-send-string (format "MODE %s :+b %s\r\n"
 			     (riece-identity-prefix riece-current-channel)
 			     pattern)