* riece-commands.el (riece-command-complete-user): Move point to

the end of the current word.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e501ab..661e828 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-27  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-commands.el (riece-command-complete-user): Move point to
+       the end of the current word.
+
 2004-08-23  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-irc.el (riece-irc-open-server): Display error message if

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index c16b391..3a80f99 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -680,6 +680,7 @@ If prefix argument ARG is non-nil, toggle frozen status."
        (if (equal current completion)
            (with-output-to-temp-buffer "*Help*"
              (display-completion-list all))
+         (re-search-forward "\\>" nil t)
          (delete-region (point) (- (point) (length current)))
          (insert completion))))))