X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Friece-commands.el;h=3a80f991b8253184621dc9c099c74429fd0ebdb4;hb=e2e3ddda2815f6ddce4c78c3f5e6d51d62d3d401;hp=c16b391c6252c5d296874a675185517007a1fd8c;hpb=8f924869dd21c0bbd532ee8742806d6fec1671fa;p=riece

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