* 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 (file)
--- 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.
 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 (file)
--- 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))))
                          (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)
         (completion (try-completion current table))
         (all (all-completions current table)))
     (if (eq completion t)