From: yoichi <yoichi>
Date: Sun, 4 Jul 2004 02:53:02 +0000 (+0000)
Subject: * riece-commands.el (riece-command-complete-user): current-word
X-Git-Tag: riece-1_0_1~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=820f857f17ff804fc0ce844d9c6d836a0875d06b;p=elisp%2Friece.git

* riece-commands.el (riece-command-complete-user): current-word
can return nil (follow the change in emacs-cvs).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 01c2e94..7c987f9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-04  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* riece-commands.el (riece-command-complete-user): current-word
+	can return nil (follow the change in emacs-cvs).
+
 2004-07-01  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece.el (riece-exit): Clear signal-slots.
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 22d2755..dc8ac18 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -668,7 +668,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
 			  (list (riece-format-identity user t)))
 			(riece-get-users-on-server
 			 (riece-current-server-name))))
-	 (current (current-word))
+	 (current (or (current-word) ""))
 	 (completion (try-completion current table))
 	 (all (all-completions current table)))
     (if (eq completion t)