From e34db1743681c2a565d7145bfb36f45f071abb02 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 19 Aug 2007 06:32:04 +0000 Subject: [PATCH] Fixed. --- lisp/riece-commands.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el index 64f0275..a6bdb9e 100644 --- a/lisp/riece-commands.el +++ b/lisp/riece-commands.el @@ -236,13 +236,14 @@ the layout to the selected layout-name." (defun riece-command-kick-with-ban (user pattern &optional message) (interactive - (let ((completion-ignore-case t)) + (let ((completion-ignore-case t) + users) (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)) (list - (completing-read (riece-mcat "Kick user: ") - (riece-channel-get-users (riece-identity-prefix - riece-current-channel))) + (completing-read (riece-mcat "Kick user: ") users) (completing-read (riece-mcat "Ban pattern: ") (mapcar (lambda (user) -- 1.7.10.4