projects
/
elisp
/
riece.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3f63625
)
* riece-commands.el (riece-command-kick): Fix completing-read
author
kaoru
<kaoru>
Tue, 7 Oct 2003 10:09:44 +0000
(10:09 +0000)
committer
kaoru
<kaoru>
Tue, 7 Oct 2003 10:09:44 +0000
(10:09 +0000)
collection argument.
lisp/ChangeLog
patch
|
blob
|
history
lisp/riece-commands.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
ef996eb
..
53dbc71
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,8
@@
+2003-10-07 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * riece-commands.el (riece-command-kick): Fix completing-read
+ collection argument.
+
2003-10-05 Daiki Ueno <ueno@unixuser.org>
* riece-000.el: Require 'riece-commands.
2003-10-05 Daiki Ueno <ueno@unixuser.org>
* riece-000.el: Require 'riece-commands.
diff --git
a/lisp/riece-commands.el
b/lisp/riece-commands.el
index
3e3c614
..
55c0f23
100644
(file)
--- a/
lisp/riece-commands.el
+++ b/
lisp/riece-commands.el
@@
-189,8
+189,11
@@
the layout to the selected layout-name."
(error "Not on a channel"))
(list (completing-read
"User: "
(error "Not on a channel"))
(list (completing-read
"User: "
- (mapcar #'list (riece-channel-get-users
- riece-current-channel)))
+ (mapcar #'list
+ (riece-with-server-buffer
+ (riece-identity-server riece-current-channel)
+ (riece-channel-get-users
+ (riece-identity-prefix riece-current-channel)))))
(if current-prefix-arg
(read-string "Message: ")))))
(riece-send-string
(if current-prefix-arg
(read-string "Message: ")))))
(riece-send-string