From c3c256533e44c81607a871fb1e6ee9914f4c58b8 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 19 Aug 2007 06:29:58 +0000 Subject: [PATCH] Removed local vars. --- lisp/riece-commands.el | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) 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) -- 1.7.10.4