From: ueno <ueno>
Date: Fri, 27 Aug 2004 08:31:20 +0000 (+0000)
Subject: * riece-commands.el (riece-command-complete-user): Move point to
X-Git-Tag: riece-1_0_3~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=afebd489266effd456224449ef0cc937db7c40c5;p=elisp%2Friece.git

* 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
--- 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
--- 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))))))