projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
56a0d9a
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Sun, 19 Aug 2007 06:32:04 +0000
(06:32 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Sun, 19 Aug 2007 06:32:04 +0000
(06:32 +0000)
lisp/riece-commands.el
patch
|
blob
|
history
diff --git
a/lisp/riece-commands.el
b/lisp/riece-commands.el
index
64f0275
..
a6bdb9e
100644
(file)
--- 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
(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)
(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
(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)
(completing-read (riece-mcat "Ban pattern: ")
(mapcar
(lambda (user)