From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 17 Oct 2010 17:30:22 +0000 (-0400)
Subject: * lisp/minibuffer.el (completion--replace): Move point where it belongs
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/8348910a636f3a40ca2bb1a6231d5aa5f0a1a8e7

* lisp/minibuffer.el (completion--replace): Move point where it belongs
when there's a common suffix.

Fixes: debbugs:7215
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0cbd35d5f..7c560c33b9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* minibuffer.el (completion--replace): Move point where it belongs
+	when there's a common suffix (bug#7215).
+
 2010-10-15  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-open-connection-setup-interactive-shell):
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index a4ab5261f7..bc5a1d2e80 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -498,10 +498,11 @@ Moves point to the end of the new text."
       (setq suffix-len (1+ suffix-len)))
     (unless (zerop suffix-len)
       (setq end (- end suffix-len))
-      (setq newtext (substring newtext 0 (- suffix-len)))))
-  (goto-char beg)
-  (insert newtext)
-  (delete-region (point) (+ (point) (- end beg))))
+      (setq newtext (substring newtext 0 (- suffix-len))))
+    (goto-char beg)
+    (insert newtext)
+    (delete-region (point) (+ (point) (- end beg)))
+    (forward-char suffix-len)))
 
 (defun completion--do-completion (&optional try-completion-function)
   "Do the completion and return a summary of what happened.